Zugriffversetzlung beim übergeben einer TSringlist

[Duffy]

Hallo endeffects,

Delphi-Quellcode:

function ripstring(Source: String): TStringlist;
var 
  Mylist: TStringlist; 
  Cut: string;
begin
  Mylist:= TStringList.Create;
  Mylist.Duplicates:= dupIgnore;
  Mylist.Sorted:= true;
  ....
  if Cut <> '' then
    Mylist.Add(Cut);
  ....
  Result:= Mylist;   // hier wird nur ein Zeiger auf Mylist an Result übergeben ...
  Mylist.Free; // und hier gibts Du die Liste frei ... knall ... wenn Du auf das Result der Funktion zurückgreifst.
end;

bye
Claus