Für mich ist folgendes Konstrukt eigentlich der übersichtlichste und sauberste Weg um das Bsp von sahli umzusetzen.
Delphi-Quellcode:
var
list1: TStringList;
list2: TStringList;
begin
list1:=nil;
list2:=nil;
try
list1 := TStringList.Create;
list2 := TStringList.Create;
...
finally
list1.free;
list2.Free;
end;
es sei denn man macht das hier:
Delphi-Quellcode:
var
list1: TStringList;
list2: TStringList;
ol: TObjectList;
begin
ol := TObjectList.Create;
try
list1 := TStringList.Create; ol.Add(list1);
list2 := TStringList.Create; ol.Add(list2);
...
finally
ol.free;
end;
was ich ja übersichtlicher finde.