Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Function, Result als stringlist?

  Alt 20. Nov 2003, 11:06
hallo,

ich möchte eine stringlist(innerhalb der function) haben, aber wie geb ich dann das ergebnis an meine procedur? schliesslich muss ich am ende ja die stringlist wieder free'en. ich hatte es so(weiss nichtmal ob es überhaupt so geht):

Delphi-Quellcode:
function bla(s: string; c: char): TStringList;
begin
  Result := TStringList.Create;
  while Pos(c, s) > 0 do
  begin
    result.Add(Copy(s, 1, Pos(c, s)));
    Delete(s, 1, Pos(c, s));
  end;
  result.Free;
end;
ich kriege immer einen zugriffsfehler, ich denke mal weil die stringlist bereits nichtmehr existiert.
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat