Zitat:
nicht soll
Es wird nicht grade empfohlen, aber verboten ist es nicht.
ABER von Vorteil wäre es, wenn man dem Funktionsnamen dieses Verhalten ansieht.
Delphi-Quellcode:
//var FSL: TStringList;
function GetSL: TStrings;
begin
Result := FSL;
Result.Clear;
Result.Add('blub');
end;
SL := GetSL;
...
function CreateSL: TStrings; // MakeSL oder sowas
begin
Result := TStringList.Create;
Result.Add('blub');
end;
SL := CreateSL;
...
SL.Free;
// bezüglich Fehlerbehandlung Try-Except/Finally siehe oben
Delphi-Quellcode:
procedure GetSL(SL: TStrings);
begin
SL.Clear; // ohne Clear, wenn man optional anhängen können möchte (außerhalb Clear oder nicht)
SL.Add('blub');
end;