Hi Luckie,
wenn du es als "read" property eine Klasse machst, würde ich es so lösen (hatte selbst letztens einen ähnlichen Fall). Undzwar arbeitest du in der Klasse mit einer privaten Liste, die du aussenstehenden zugänglich machst.
Delphi-Quellcode:
TMyClass = class(TObject)
private
FList: TStringList;
function GetList: TStrings;
public
property MyList: TStrings read GetList;
constructor Create;
destructor Destroy; override;
end;
// ...
constructor TMyClass.Create;
begin
inherited;
FList := TStringList.Create;
end;
destructor TMyClass.Destroy;
begin
FreeAndNil(FList);
inherited;
end;
function TMyClass.GetList: TStrings;
begin
try
// Mach was mit der FList...
// ...
Result := FList;
except
Result := nil;
end;
end;
Ist ungetestet, sollte aber funktionieren.
mfG
mirage228