Schleife für Klassennamen

[Jibiel]

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

[Neutral General]

Delphi-Quellcode:

var Schnee: Array of TSchnee;

for i:= 0 to High(Schnee) do
begin
 //ka
end;

Ich würds mit nem Array machen... :)

Gruß
Neutral General

[hoika]

Hallo,

ich würde TList benutzen.
Die hat den Vorteil, das sie automatisch grösser wird.


Heiko

[mkinzler]

Im Normalfall sollte ein dynamischer Array, wie in Neutral General vorgeschlagen hat ausreichen. Ihn kann man durch SetLength auch in der Größe anpassen.

Nur zu Vollständigkeit und nicht als Ratschlag:

Delphi-Quellcode:

for i:= 1 to 4 do
begin
    Form.FindComponent('Schnee'+inttostr(i) as TSchnee).Zeichnen;
end;

[Flare]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

for i:= 1 to 4 do
begin
    Form.FindComponent('Schnee'+inttostr(i) as TSchnee).Zeichnen;
end;

Und was ist, wenn Schnee keine Komponente ist? Immerhin geht es aus dem Codebeispiel nicht heraus ob es eine Komponente auf der Form ist oder nicht...


Flare

//Edit: Geschlechtsneutraler vormuliert :oops:

[mkinzler]

Stimmt, ich bib davon augegangen, da0 es eine Komponente ist. hatte aber auch geschriebne das die lösunf mit Arrays/Listen so oder so besser ist!

[Jibiel]

Danke für die vielen Antworten =)

@Flare bin eine Sie^^


Ich hab mir sowohl TList als auch Arrays angeguckt, aber bei mir läuft es immer auf das gleiche raus. Schnee1, Schnee2, ... werden immer nur als strings abgespeichert und ich kann sie dadurch nie als ein Objekt der Klasse TSchnee benutzen.

Delphi-Quellcode:

procedure TMain.SchneeTimer(Sender: TObject);
var i : integer; Flockenarray: Array of TSchnee;
begin

Schnee.Interval := 50;

for i:= 1 to 4 do
begin
Flockenarray[i-1] := 'Schnee'+'i';
Flockenarray[i-1].zeichnen;
end;

Hier das Beispiel für die Array-Lösung. Was mach ich falsch?

[Fehler] mMain.pas(201): Inkompatible Typen: 'TSchnee' und 'String'


*wink* Jibi

[mkinzler]

Hallo Jibi,
Du hast das wohl falsch verstanden, gemeint war:

Erzeugen:

Delphi-Quellcode:

var
    Schnee = Array of TSchnee;
    i: Integer;
begin
    setLength( Schnee, 100);
    for i := 0 to 99 do
    begin
       Schnee[i] := TSchnee.Create( ...);
       ...
    end;

Zeichnen:

Delphi-Quellcode:

  for i := 0 to 99 do
    begin
       Schnee[i].Zeichnen;
       ...
    end;

[/delphi]

[Jibiel]

Danke euch allen, es klappt endlich :DD

Wer mal mein Projekt sehen möchte: http://jibichan.ji.funpic.de/PHaus.exe

Ist noch lang nicht fertig, aber wird schon noch^^


*alle mal drück* :>