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