Objektreferenzen als Variable nutzen möglich ?

[LimeBulls]

Hallo,

Beispielquelltext:

Delphi-Quellcode:

query.sql.text := 'Select ...';
query2.sql.text := 'Select...';

Nun möchte ich für "Query", welches eigentlich als TZQuery definiert ist einen Platzhalter/eine Variable einsetzen.

z.B.

Delphi-Quellcode:

type
query2 := TZQuery;

[...]
procedure xxx;
var
query_variable: String;
begin
query_variable := 'query2'
query_variable.sql.text := 'Select...';

Natürlich klappt das so nicht, da kein normaler String einfach als Objektreferenz dienen kann.

Wie kann ich mir aber eine Variable machen, welche ich dauerhaft ändern kann und quasi die "Objektreferenz verschieben" kann, je nachdem worauf die Variable gerade zeigt/gesetzt ist ?

Google habe ich bereits angeworfen, gab mir aber zum Überschriftentext keine passenden Ergebnisse und die Selbstversuche endeten nicht erfolgreich.

Danke im voraus.

[DeddyH]

Wenn es unbedingt ein String sein muss, kannst Du Dir FindComponent einmal anschauen.

[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;

[mkinzler]

Am Besten übergibst du statt Namen eine Referenz.

Sonst .FindComponent()