Hallo zusammen,
folgendes Beispiel:
Delphi-Quellcode:
TMyData = record
a : Integer;
b : AnsiString;
c : TDateTime;
end;
TMyObject = class
aData : TMyData;
constructor Create (NewData: TMyData);
function GetString: AnsiString;
end;
Delphi-Quellcode:
procedure DoAnything;
var
NewObj : TMyObject;
aNewData : TMyData;
begin
aNewData.a := 99;
aNewData.b := 'Hallo';
aNewData.c := Now;
NewObject := TMyObject.Create (aNewData);
//das NewObject in eine TStringList packen und irgendwas damit machen...
end;
procedure AllesFreigeben;
var
aObj : TMyObject;
begin
//Schleife über die TStringList zum Freigeben der Objekte...
for i := 0 to ....
begin
aObj := Liste.Objects[i] as TMyObject;
if Assigned(aObj) then
begin
FreeAndNil(aObj);
end;
end;
end;
Nur ein Beispiel...
Muss ich ein destructor für meine Klasse machen und die Strings da irgendwie freigeben oder ist das alles gut so?
Gruß