aha ich hatte nicht ein end zuviel sondern ein begin zuviel!
habs nun so;
Delphi-Quellcode:
var
i, zaehler : integer;
s : string;
begin
s := Edit1.Text;
zaehler := 0;
for i := 1 to length(s) do
if s[i] = ' ' then
zaehler := zaehler + 1;
showmessage( IntToStr(zaehler));
end;
end.
Nun klappts auch...puhh, war dass eine schwere Geburt xD, danke an alle für die ganzen Hinweise. Morgen geht der Spaß denke ich weiter^^
loki
PS: Gute Nacht