Frage zu einer funktion

[SirThornberry]

so hab mal ne funktion von mir die eigentlich das ganze zerlegt und als stringlist zurückgibt abgeändert.

Delphi-Quellcode:

function countitems(Source: String; Delimiter: String):Integer;
var count: Integer;
    toadd : String;
begin
 result := 0; count := 1; toadd := '';
 while count <= length(Source) do
 begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   if toadd <> '' then result := result + 1;
   toadd := '';
   count := count + length(Delimiter);
  end else begin
   toadd := toadd + Source[count];
   count := count + 1;
  end;
 end;
 if toadd <> '' then result := result + 1;
end;