Leerzeichen in einem String zählen

[hoika]

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