TComboBox.AddObject - Adressverletzung

[Mazen]

Super, danke für die flotte Hilfe

[haentschman]

Moin...

und wo werden deine erzeugten TPreisliste wieder freigegeben ?

[sx2008]

Zitat von haentschman:

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;