funktion soll TStringList zurückliefern

[idontwantaname]

Hi !

ich mache mir gerade eine Funktion, die einen String anhand eines Zeichens teilen soll, das funktioniert auch, nur möchte ich, das die Funktion eine TStringList zurückliefert, ist sowas möglich ??

hier der Quellcode:

Delphi-Quellcode:

var Foo: TStringList

{Im FormCreate-Event:}
Foo := TStringList.Create;

{und im FormDestroy-Event:}
Foo.Free

{...}

procedure SplitString(Str: String; Chr: Char);
var   newStr,Buffer:String;
      Schleife: Integer;
begin
   newStr := Str + Chr;
   if(Pos(Chr,newStr) <> Length(newStr)) then
       for Schleife := 1 to Length(newStr) do
       begin
         if(newStr[Schleife] <> Chr) then
              Buffer := Buffer + newStr[Schleife]
           else begin
               Foo.Add(Buffer);
               Buffer := '';
           end
        end
    else
       Foo.Add(Str);
end;