Einzelnen Beitrag anzeigen

Jibiel

Registriert seit: 9. Jul 2006
15 Beiträge
 
#1

Schleife für Klassennamen

  Alt 1. Nov 2006, 16:48
Hallo :>
Ich habe ein Projekt angefangen, bei dem Schneeflocken vorkommen. Dafür habe ich die Klasse TSchnee erstellt.
Da es sich natürlich um sehr viele Schneeflocken handeln wird, ist dieser Quellcode sehr ungünstig, da ich für jede Schneeflocke je eine Zeile brauche. In der folgenden Prozedur versuche ich die Prozedur TSchnee.Zeichnen aufzurufen:

Delphi-Quellcode:
procedure TMain.SchneeTimer(Sender: TObject);
begin

Schnee.Interval := 50;

Schnee1.Zeichnen;
Schnee2.Zeichnen;
Schnee3.Zeichnen;
Schnee4.Zeichnen;
end;
Deshalb möchte ich eine Schleife benutzen, um die endlose Schreiberei zu vermeiden:

Delphi-Quellcode:
procedure TMain.SchneeTimer(Sender: TObject);
var i: integer, Flocke : TObject;
begin

Schnee.Interval := 50;

for i:= 1 to 4 do
begin
Flocke := 'Schnee'+inttostr(1);
Flocke.Zeichnen;
end;
Das kann nur leider nicht funktionieren, da die Variable Flocke ein TObject ist und einen String zugewiesen bekommt. Fällt euch eine Lösung ein?

Vielen Dank im voraus :>

Jibi
:>
  Mit Zitat antworten Zitat