Parameterübergabe mit Datenmodul

[chrisw]

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 :

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)