Hallo zusammen.
Hab folgendes Problem.
Wie kann ich einer Prozedur die Parameter (in diesem Fall AdoQuery) übergeben,
wenn die
Query in einem Datenmodul liegt?
Wenn die ADOQuery direkt auf dem Formular liegt, funktionierts.
procedure DuplicateRecord(DataModule1.MyQuery: TADOQuery);
funktioniert ja nicht !
Meine Deklaration sieht so aus.
Delphi-Quellcode:
type
TDataWindow = class(TForm)
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
Felder: TStrings;
procedure DuplicateRecord(DataModule1.MyQuery: TADOQuery);
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
procedure TForm1.DuplicateRecord(MyQuery: TADOQuery);
var i,max: integer;
begin
max := MyQuery.fields.count - 1;
....
end;
Kann mir hier jemand weiterhelfen ?