Folgendes Problem:
Ich möchte eine Liste von TStringlists erstellen (muss nicht unbedingt TStringlist sein!). D.h. eine beliebig bei Laufzeit erweiterbare Liste. Wie lässt sich das verwirklichen?
Danke
Mario
Folgendes Problem:
Ich möchte eine Liste von TStringlists erstellen (muss nicht
unbedingt TStringlist sein!). D.h. eine beliebig bei Laufzeit
erweiterbare Liste. Wie lässt sich das verwirklichen?
type
TList = array[1…100000] of TStringList;
PList = ^TList;
var
List : PList = Nil;
ListSize : Integer = 0;
procedure Add;
begin
inc(ListSize);
ReAllocMem(List,ListSize * sizeof(TStringList));
List[ListSize] := TStringList.Create;
end;
Gruss,
Matthias Thoma
Mit TList !!!
var MeineListe: TList;
…
MeineListe := TList.Create;
MeineListe.Add(EinObjekt);
MeineListe.Add(EinAnderesObjekt);
…
TMeinTyp(MeineListe[n]).MeinFeld := Wert;
…
MeineListe.Free;
Achtung: Mit MeineListe.Free werden nicht die Objekte freigegeben, sondern nur ihre Referenzen in der Liste und das Listenobjekt.
Jochen
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]