Zitat von
shmia:
Für Objekte gibt es übrigens die Container-Klasse TObjectList, die von TList abgeleitet ist.
Danke für den Tip, aber die bietet keine Vorteile, die ich gebrauchen könnte.
Zitat von
SirThornberry:
@TheAn00bis: Auch dieser Teil ist fehlerfrei, steht das wirklich ganz genau so bei dir im Quelltext? Vielleicht hast du ja irgendwo nur einen Tippfehler.
Verdammt! Oder auch nicht
Nein, ist nicht der genaue Quelltext, da ich das allgemein halten wollte.
(damit das Problem schneller klar wird)
Hier der Quelltext um den es geht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var karte:Tkarte;
begin
karte:=Tkarte.create(edit1.text,edit2.text);
liste.Add(karte);
end;
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
karte:Tkarte;
begin
for i:=0 to liste.count-1 do begin
karte:=liste[i];
showmessage(karte.gibfrage);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
liste:=Tlist.create();
end;
end.
Hierbei habe ich natürlich edit1 und 2.text vor jedem Klicken geändert.
Wenn ich dann auf button2 klicke, erscheint in jedem Fenster dennoch das gleiche.
edit: Achja, der erste "create"-Parameter setzt die Variable, die durch "GibFrage" ausgegeben wird.