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.

zusammenfalten · markieren

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 ?

Wenn ich das richtig verstanden habe möchtest Du das Object vom Typ TAdoQuery in einer procedure übergeben ! (bzw. einen Zeiger darauf)

Das wäre dann wie folgt :

zusammenfalten · markieren

Delphi-Quellcode:

//declaration
...
procedure DuplicateRecord(MyQuery: TADOQuery);
...


//implementation
...
procedure TForm1.DuplicateRecord(MyQuery: TADOQuery);
var i,max: integer;
begin
  max := MyQuery.fields.count - 1;
...
end;


//Aufruf der procedure :

DuplicateRecord(DataModule1.MyQuery)

Na klar. Jetzt fällts mir auch wieder ein.
Vielen Dank trotzdem.