Rückgabewert von Funktionen / evtl. Problem mit try..finally

[Luckie]

Man könnte es auch als out Parameter deklarieren, wenn einem eine Deklaration als var Paamaeter nicht gefällt:

Delphi-Quellcode:

procedure FillSl(out sl: TStringList);
begin
  sl.Add('Foo');
  sl.Add('bar');
  sl.Add('Hello');
  sl.Add('world');
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    FillSl(sl);
    Listbox1.Items.Assign(sl);
  finally
    FreeAndNil(sl);
  end;
end;