Как в процедуру передать параметром AdoQuery?

@stupidstudent · Регистрация: 25.10.2011

Author24 — интернет-сервис помощи студентам

На datamodule расположен ADOQuery.
Собственно в коде обращаюсь так DM.ADOQuery. ...
Чтобы не повторять код(т.к. действия на совершаемых формах одинаковые, а имена ADOQuery разные) вынес все в отдельный PAS файл, и в онкрите формы Utils := Tutils.Create.
Тогда все плюсы на лицо

Так вот, как в процедуру передать параметром ADOQuery ?

Delphi

procedure FooBar( ??? ); 
begin
//реализация
end;

@kwinto · 17.11.2012, 23:34

procedure FooBar(ADOQuery: TADOQuery);

@stupidstudent · 17.11.2012, 23:35 **[ТС]**

kwinto, ну эт ясное дело.
А так то я разобрался, просто забыл проверить uses
ADODB, DB

@FIL · 17.11.2012, 23:40

Delphi

procedure FooBar(Sender: TObject); 
begin
//реализация
  (Sender as TADOQuery)....
.......
end;

Delphi

1	FooBar(ADOQuery1);

@stupidstudent · 17.11.2012, 23:41 **[ТС]**

теперь как обращаться через datamodule к adoquery, если

Delphi

procedure FooBar(nameDataModule : TDataModule; nameQuery : TADOQuery);
begin
if nameDataModule.nameQuery.RecordCount = 0 then //... 
end;

не получится?

@kwinto · 17.11.2012, 23:51

Pascal

procedure FooBar(Q : TADOQuery);
begin
if Q.RecordCount = 0 then //... 
end;
.....
FooBar(DM.ADOQuery);
.....

@FIL · 18.11.2012, 00:15

Думаю так:

Delphi

procedure TForm1.FooBar(nameQuery : TADOQuery);
begin
  if nameQuery.RecordCount = 0 then begin end;//...
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  FooBar(DataModule2.ADOQuery1);
end;
end.

@kwinto 86 / 86 / 24 Регистрация: 27.02.2010 Сообщений: 397
	17.11.2012, 23:34	2
	procedure FooBar(ADOQuery: TADOQuery); 1

@stupidstudent 18 / 15 / 0 Регистрация: 25.10.2011 Сообщений: 241
	17.11.2012, 23:35 [ТС]	3
	kwinto, ну эт ясное дело. А так то я разобрался, просто забыл проверить uses ADODB, DB 0

	18.11.2012, 00:15