string Wörter zählen

[Cogito]

Hallo,

ich habe eine String Zerlegungsroutine, die mir einen String in einzelne Wörter zerlegt:

Delphi-Quellcode:

function Parse(Char, S: string; Count: Integer): string;
var
  I: Integer;
  T: string;
begin
  if S[Length(S)] <> Char then
    S := S + Char;
  for I := 1 to Count do
  begin
    T := Copy(S, 0, Pos(Char, S) - 1);
    S := Copy(S, Pos(Char, S) + 1, Length(S));
  end;
  Result := T;
end;

Wenn ich nun einen string s := ';wert1;wert2;wert3' habe kann ich mir mittels Angabe Parse(';', s, 2) den zweiten Wert zurückgeben lassen. So weit so gut. Wie bekomme ich aber nun raus, wieviele Wörter mein String s überhaupt enthält, hat da jemand eine Routine oder Funktion für?

[freak4fun]

Anzahl der ; vielleicht?

Wenn ich sowas habe, dann splitte ich die Liste mit TStringlist ( Delimitter := ;, Strictdelimitter = True und dann DelimittertText zuweisen).

[burn]

Hallo,

soweit ich das sehe steht vor jedem Wort ein ";".
Also gehst du durch deinen String und zählst die ";" und
hast damit die Anzahl der Wörter.

Delphi-Quellcode:

Anzahl := 0;
for i := 1 to Length(s) do
begin
  if s[i] = ';' then
    Inc(Anzahl)
end;

mfg Burn

[himitsu]

Indem du keine fest For-Schleife verwendets, sondern z.B. über eine While-Schleife solange den String abarbeitest, bis er leer ist und dabei natürlich mitzählst.

PS: Mithilfe einer TStringList kann man auch über einen Seperator (in deinem Fall das ; ) strings zerlegen lassen
und ich glaub in der CodeLib gibt es auch schon einige fertige Klassen und Funktionen für solche Aufgaben.

Zitat von Cogito:

kann ich mir mittels Angabe Parse(';', s, 2) den zweiten Wert zurückgeben lassen.

Dann ist aber der Parameter "Count" irreführend beschrieben "Index", "Position" oder so ähnlich wäre da besser, da es ja nicht die "Anzahl", sondern eine "Position" angibt.

[rollstuhlfahrer]

Außerdem funktioniert deine Zerlegeroutine nicht. Sie sorgt nur dafür, dass alle ; aus dem String entfernt werden. Aus "wort1;wort2;wort3" wird somit "wort1wort2wort3".

Bernhard