0 / 0 / 0
Регистрация: 13.09.2010
Сообщений: 4

Помогите решить задачу

05.05.2012, 22:36. Показов 1587. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет всем!
Я учусь программировать на Дельфи и мне очень нравится
Помогите, пожалуйста, решить такую задачу...у меня не получается
Есть 2 файла, краткое содержание кот. привожу ниже:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
1) ********File1.pas*********
unit File1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Forms, ADODB, Db, StdCtrls,
  Controls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    adoLConnect: TADOConnection;
    adoLQuery: TADOQuery;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses File2;
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  mb: String;
begin
  idF := StrToInt(Edit1.Text);
 
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
 
  Application.MessageBox(PChar(mb),'Test',MB_OK + MB_iconinformation);
end;
 
end.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
2) ********File2.pas*********
unit File2;
 
interface
 
uses SysUtils;
 
var
  idF: Integer;
 
  function iNumber(idF:integer): string; far;
 
implementation
 
uses File1;
 
function iNumber(idF:integer): string;
var
   str: String;
begin
  str := 'select Name from Family where IDFam='
  Result := str + IntToStr(idF);
end;
 
end.
*****************************
Все работает.
Хочу сделать так, чтобы кусок из File1.pas:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
***
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
***
был в File2.pas, например:
 
function qSel: string;
var
  mb: String;
begin
 
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
end;
А, в File1.pas вызвался так:

Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  idF := StrToInt(Edit1.Text); //Вставляется число, кот.потом берется из БД
 
  Application.MessageBox(PChar(qSel),'Test',MB_OK + MB_iconinformation);
end;
Писала так, но не работает...не пойму почему...
Очень надо, т.к. будет часто использоваться "кусок (qSel)" в др. файлах.
Пожалуйста, помогите! Заранее благодарю.
Tigr@
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.05.2012, 22:36
Ответы с готовыми решениями:

помогите решить задачу спасибо за ранее
водится порядок квадрат матрицы и квадрат матрицы по строчная к элемент 2 строки прибавить соответствующий элементами предпоследней...

Решить задачу
Здравствуйте, решите пожалуйста задачу! Заранее спасибо! Мне очень срочно нужно:(Кому не сложно скиньте уже готовую программу! По...

Не знаю как решить задачу =(
Помогите пожалуйста решить задачу или подскажите что лучше использовать для её решения.. :scratch: При поселении в гостиницу каждый...

2
1 / 1 / 7
Регистрация: 28.06.2011
Сообщений: 342
06.05.2012, 10:52
Если б еще можно было понять, в чем вопрос/проблема, было бы не плохо...
0
0 / 0 / 0
Регистрация: 13.09.2010
Сообщений: 4
06.05.2012, 21:42  [ТС]
Спасибо, уже разобралась ))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.05.2012, 21:42
Помогаю со студенческими работами здесь

Помогить решить задачу со строками
Вот текст: Для большинства существительных, оканчивающихся на –онок и –енок, множественное число образуется от другой основы. Как...

Задачу решить способами разветвленных алгоритмов
Всем добрый день. Очень прошу помощи у людей, понимающих Делфи. Вот задача Ввод вывод осуществлять с помощью компонента MaskEdit ...

С помощью процедуры решить следущую задачу:
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые...

Подскажите плс как решить задачу....
Реализовать процедуру, которая выводит данные с TComboBox в компоненту TstringGrid, а результат виводит в компоненту Tmemo (см....

Решить задачу с помощью функции и оператора case
Решить задачу с помощью функции и оператора case: Локатор ориентирован на одну из сторон света("С"-север, "З"-запад,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Тестирование Pull Request в Kubernetes с vCluster
Mr. Docker 19.07.2025
Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить
_Ivana 18.07.2025
p2UhJNMGY94
Десять Middleware Node.js для эффективного кодинга
Reangularity 18.07.2025
Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .
Context и глубины Android
mobDevWorks 18.07.2025
В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .
Результаты исследования от команды MCM (июль 2025 г.)
Programma_Boinc 18.07.2025
Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js
Reangularity 17.07.2025
React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru