Wer macht den Free?

[Uwe Raabe]

Delphi-Quellcode:

Function Bar3(Const AListe : TStrings) : TStrings;
begin
// Den Source kenne ich nicht...  
end;

Function Bar4;
var
  LListe1 : TStrings;
  LListe2 : TStrings;
begin
  LListe1 := Foo2('Value','42');
  // unter der Annahme, daß Bar3 die Instanz nicht freigibt, was dem const ja widersprechen würde
  LListe2 := Bar3(LListe1);
  if LListe2 <> LListe2 then begin
    LListe2.Free;
  end;
  LListe1.Free;
end;