Zugriffversetzlung beim übergeben einer TSringlist

[Duffy]

Hallo endeffects,

Code:

function ripstring(Source: String): TStringlist;
var
  Cut: string;
begin
  Result := TStringList.Create;
  Result.Duplicates:= dupIgnore;
  Result.Sorted:= True;
  ....
  if Cut <> '' then
    Result.Add(Cut);
  ....
end;

Code:

procedure Irgendwas;
var
  MyList: TStringList;
begin
  Mylist := ripstring('OK, bald ist Weihnachten ...');
  Mylist.Free; // Stringliste freigeben
end;

bye
Claus