Hallo Zusammen,
wie kann ich bitte ein Array in jeder enzelne TStringList.Item als Object ablegen?
Wenn ich nur ein item in der Liste anlege funkt es einwandfrei. Sobald ein weiteres
Item angelegt wird, sind die Arrays aller Items zerstört. Vermutlich wird nur ein
Pointer in der Liste als Object abgelegt und nicht das komplette Array.
Wenn ich eine Klasse erzeuge und daraus einzelne AdressObjekte inzanzieren würde,
würde es vermutlich gehen. Die Frage ist, kann ich es auch mit einem Array?
Hat jemand eine Idee wie das zu meistern ist?
Gruß Kostas.
Mein code vereinfach sieht so aus:
Delphi-Quellcode:
type TAdresse = Record
Namen:String;
TelefonNr:String;
end;
type TAdressenAraay = Array of TAdresse;
var
AdressenAraay: TAdressenAraay;
begin
AdressListe:= TStringList.Create;
//In einer Schleife das array befüllen und alle Items anlegen
AdressListe.AddObject( Titel, TObject(AdressenAraay));
//Zum Auslesen des Arrays aus dem item, casten auf dem Ursprungstyp
AdressenAraay := TAdressenAraay(AdressListe.Items.Objects[n]);