Auf Variablen mit deren Namen in einer Schleife zugreifen?

[LuckyLucas]

Moin DP!

Bin ein Neuling hier und auf Grund des "guten Rufs" zu euch gestoßen. So denn, präsentiere ich gleich mal meine erste Frage:

Wie kann ich folgenden Code in einer Schleife verpacken?

Delphi-Quellcode:

var
  Var1, Var2, Var3: TKlasse;
begin
  Listbox1.Add(Var1.StringProperty);
  Listbox1.Add(Var2.StringProperty);
  Listbox1.Add(Var3.StringProperty);
end;

Die Sache würde natürlich bei diesen kurzen Code-Beispielen keinen Sinn machen; mein Source ist also bedeutend länger. Also ich möchte es praktisch folgendermaßen haben:

Delphi-Quellcode:

var
  i: byte;
  Var1, Var2, Var3: TKlasse;
begin
  for i:=1 to 3 do Listbox1.Add(TKlasse('Var'+inttostr(i)).StringProperty);
end;

Das ganze wäre mit VCL-Komponenten (TComponents) kein Problem, dort kann man beispielsweise auf die Eigenschaft eines Labels mit TLabel('Label'+inttostr(i)).Caption zugreifen, oder wenistens FindComponent benutzen, doch bei Variablen "einfacher Klassen" geht das nicht.

Und ich habe nun eben keine Vorstellung, wie man sowas bequem und schlank programmiert :(

[jfheins]

Wie wäre es mit einem Array oder einer Typed TObjectList ?

Array:

MyArray: Array[0..6] ofTMyClass ;)

[LuckyLucas]

Okay, ich gebe zu, da habe ich nicht so richtig überlegt. :oops: Naja, ist schon spät.

Ich hatte es bereits mit einem Array probiert, aber einen flaschen Ansatz verfolgt... wie auch immer, mit einem Array[1..3] of TKlasse funktionierts jetzt.

Good night!

[BlackJack]

Zitat:

Zitat von LuckyLucas

Das ganze wäre mit VCL-Komponenten (TComponents) kein Problem, dort kann man beispielsweise auf die Eigenschaft eines Labels mit TLabel('Label'+inttostr(i)).Caption zugreifen, oder wenistens FindComponent benutzen, doch bei Variablen "einfacher Klassen" geht das nicht.

naja ob dieser Typecast eines strings mit einem TLabel überhaupt vom Compiler zugelassen wird wage ich mal stark zu bezweifeln. aber mit FindComponent hast du natürlich recht.