Leerzeichen in einem String zählen

[himitsu]

Zitat von Luckie:

Gar nicht mal so dumm.

Wobei 'ne Schleife aber schneller sein sollte, als soeine Stringoperation.

PS: die Schleife macht genau das, was der Mensch auch machen würde ... sich alle Zeichen der Reihe nach ansehn und dabei die gewünschten Zeichen zählen

[loki91]

So nun kann der Code nicht compiled werden, liegts daran, dass der Zaehler noch nicht wiedergegeben wurde, oder an was anderem?

Delphi-Quellcode:

var
i,zaehler:integer;
s:string;
begin
s := Edit1.Text;

for i := 1 to length(s) do
begin
  if s[i] = ' ' then      //Falls im string Leerzeichen gefunden werden (' ') dann
    zaehler := zaehler + 1//erhoehe den Zaehler um 1, oder?


end;

end.

loki

[Luckie]

Geschickt wäre es wohl, wenn du uns die Fehlermeldung sagen würdest.

[Matze]

Der Wert von "zaehler" ist zu Beginn undefiniert. Wenn du "zaehler" vor der Schleife den Wert 0 zuweist, sollte es gehen.

[loki91]

Fehlermeldung:

Auf 'zaehler' zugewiesener Wert wird niemals benutzt.
" selbe nochmal "
';' erwartet aber '.' gefunden


hab zaehler 0 zugewiesen, denk ich jetzt, also hab zaehler := 0 geschrieben, hat dennoch nicht geklappt.

[Luckie]

OK, am Ende der Schleife steht in der Variablen zaehler jetzt was drin. Und nu?

Zitat:

';' erwartet aber '.' gefunden

Auf was könnte der Hinweis wohl hindeuten? Und dann guck dir deinen Quelltext noch mal an.

[himitsu]

zähle mal die END; am Ende deiner Prozedur.

PS: sowas läßt sich übrigens mit einer "ordentlichen" Codefarmatierung "recht" leicht entdecken.

[Matze]

Das erste sagt aus, dass du den Wert nicht nutzt, also nirgendwo weiterverarbeitest, ausgibst o.ä. Das ist auch nur ein Hinweis und kein Fehler. Nach

zaehler := zaehler + 1 solltest du ein ";" einfügen (sagt die Fehlermeldung deutlich).

Luckie hat es bereits geschrieben: Sagte uns, was nicht geht, welche Meldungen kommen etc. "hat dennoch nicht geklappt" hilft keinem.

Achja, ganz wichtig: Delphi-Grundlagentutorials.

[Luckie]

Irgendwie habe ich das Gefühl dass meine pädagogischen Antworten torpediert werden.

[loki91]

Wenn Fehler auftauchen überprüfe ich als erstes ob ein Semikolon fehlt, soweit bin ich.
Ehm... END's hab ich 2, eine zum beenden der Schleife und die andere um die Button-aktion zu beenden.

Ich denke das Problem ist, dass der Wert vom zaehler nicht ausgegeben wird, aber wie gebe ich den Wert nun in einem Edit-Feld aus?

Normalerweise sieht es ja dann so aus
label1.caption := IntToStr(zaehler);

wieso geht das hier nicht:

Edit1.Caption := IntToStr(zaehler); ?