also gehen würde das auch so
Delphi-Quellcode:
property Liste[Index: Integer]: TStringList read GetListe;
function MyClass.GetListe(Index: Integer): TStringList;
begin
result := FListen[Index];
end;
PS: READ reicht vollkommen, da nur die Objektinstanz zurückgegeben werden muß ... Änderungen kann man in der Liste selber ja vornehmen
und wenn unbedingt mit Setter, dann besser so,
denn sonst hast du ein süßes Speicherleck, da die schon enthaltene Listen-Variable einfach überschrieben, aber die enthaltene Instanz nicht freigegeben wird
Delphi-Quellcode:
property Liste[Index: Integer]: TStringList read GetListe write SetListe;
function MyClass.GetListe(Index: Integer): TStringList;
begin
result := FListen[Index];
end;
Procedure MyClass.SetListe(Index: Integer; Liste: TStringList);
begin
FListen[Index].Assign(Liste);
end;