Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Parameterübergabe mit Datenmodul (https://www.delphipraxis.net/56794-parameteruebergabe-mit-datenmodul.html)

needatip 11. Nov 2005 11:39


Parameterübergabe mit Datenmodul
 
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.

Delphi-Quellcode:
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 ?

chrisw 11. Nov 2005 11:50

Re: Parameterübergabe mit Datenmodul
 
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)

needatip 11. Nov 2005 17:12

Re: Parameterübergabe mit Datenmodul
 
Na klar. Jetzt fällts mir auch wieder ein.
Vielen Dank trotzdem.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz