Frage zu einer funktion

[Nalincah]

Ist zwar nicht aus meiner Feder der Code, aber ich hoffe das ist das was du brauchst

Delphi-Quellcode:

function WoerterZaehlen(GesamtString,Sep:String):Integer;
var
  PropertyListe:TStrings;
begin
  PropertyListe := TStringList.Create;
  try
    while AnsiPos(';', GesamtString) > 0 do
    begin 
      PropertyListe.Add(copy(GesamtString, 1, AnsiPos(Sep, GesamtString)-1));
      GesamtString := copy(GesamtString, AnsiPos(Sep, GesamtString) +1, Length(GesamtString));
    end;
    PropertyListe.add(GesamtString);
    return := PropertyListe.Items.Count;
  finally
    PropertyListe.free;
  end;
end;