und wo werden deine erzeugten TPreisliste wieder freigegeben ?
Das sollte man nicht vergessen.
Hier eine nützliche Prozedur dazu
Delphi-Quellcode:
{**************************************************************************
* NAME: FreeTStringsObjects
* DESC: free all objects attached to a TStrings-Object
*************************************************************************}
procedure FreeTStringsObjects(sl: TStrings);
var
i: Integer;
o: TObject;
begin
Assert(Assigned(sl));
for i := sl.Count-1 downto 0 do
begin
o := sl.Objects[i];
if Assigned(o) then
begin
o.Destroy; // spart Zeit gegenüber .Free
sl.Objects[i] := nil;
end;
end;
end;