Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
16. Jun 2020
destructor TStringTree.Destroy;
var
i: Integer;
begin
for i := 0 to Count - 1 do FreeAndNil(Objects);
end;
Ohne die Abfrage, ob's nun 'ne TStringList ist oder nicht, hat es den Vorteil, dass alle Objekte freigegeben werden und nicht nur die Stringlisten. Spart (vermutlich) das eine oder andere Speicherleck ;-)
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
15. Jun 2020
Ursprünglich ging es doch eigentlich darum, dass es einen Kompilierfehler gab. Bei meinem ollen Delphi 7 gibt es den mit diesem veränderten Code nicht mehr. Reicht das zur Problemlösung?
procedure FreeStringList(var List: TStringList);
var
i : Integer;
myList : TStringList;
begin
if Assigned(List) then begin
for i := 0 to List.Count - 1 do begin
if...