Objektreferenzen als Variable nutzen möglich ?

[Uwe Raabe]

Delphi-Quellcode:

procedure xxx(query_variable: TZQuery);
begin
  ...
  query_variable.sql.text := 'Select...'; 
  ...
end;

Aufruf dann mit

Delphi-Quellcode:

xxx(query);
xxx(query2);

Alternativ (aber globale Variablen würde ich nicht empfehlen):

Delphi-Quellcode:

var
  query_variable: TZQuery;

procedure xxx;
begin
  ...
  query_variable.sql.text := 'Select...'; 
  ...
end;

query_variable := query;
xxx;

query_variable := query2;
xxx;