Hallo,
oder um bei den begin/end zu bleiben
Delphi-Quellcode:
var
i, zaehler: integer;
s: string;
begin
s := Edit1.Text;
zaehler := 0;
for i := 1 to length(s) do
begin
if s[i] = ' ' then
begin
zaehler := zaehler + 1;
end; // if s[i] = ' ' then
end; // for i := 1 to length(s) do
showmessage( IntToStr(zaehler));
end; { procedure ... }
Klar ist hier begin/end nicht notwendig,
macht es aber leichter erweiterbar,
falls nach dem
then noch mehr Zeilen kommen sollen.
Heiko