Leerzeichen in einem String zählen

[loki91]

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

[mkinzler]

Ich hatte eher 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;

gedacht

[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

[p80286]

Endlich mal jemand der sich bemüßigt fühlt zu schreiben wozu ein end gehört.

Gruß
k-H

[Luckie]

Zitat:

Zitat von p80286

Endlich mal jemand der sich bemüßigt fühlt zu schreiben wozu ein end gehört.

Jemand, der sich bemüßigt fühlt dies zu tun macht was falsch. ;)

[hoika]

Hallo,

1. ich bin ein #-Sammler (haben wollen)
2. war das nur für den Thread-Ersteller

;)


Heiko

[xZise]

Es war eigentlich kein begin zu viel, sondern genau richtig. Allerdings gibt es ein end was kein begin hat. Und zwar ist es das letzte Wort in der Datei:

Delphi-Quellcode:

[...]
end.

Und das hast du anscheinend nie gezeigt.
Um das mal so zu sagen:*zu jedem begin gehört ein end;.

MfG
Fabian

[Micha88]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

for i := 1 to length(s) do
begin
  if s[i] = ??? then
    Zaehler := Zaehler + 1
end;

[...]

Vorher muss man aber Zaehler mit X initialisieren, sonst gibts ein böses Erwachen.

[Luckie]

Das war ja nur eine Anregung. Etwas sollte der Fragesteller schon noch selber machen.