Ein Array in einer TStringList als Object ablegen

[Kostas]

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]);