Leerzeichen in einem String zählen

[mkinzler]

Es fehlt auch das Prozedurende

[Luckie]

Zitat von loki91:

Edit1.Caption := IntToStr(zaehler);

Weil ein Edit die Eigenschaft Caption nicht hat. Ein lesen der Fehlermeldung wäre auch hilfreich. Aber guck mal wo du die Zeichenkette her hast.

[loki91]

ich brauch insgesamt 3 end's ?

Hab mir gedacht, wenn ich 2 begin drin habe, reichen 2 end's aus. hm.

Ich habs nun einfach mit Label1.Caption := IntToStr(zaehler); gemacht um irgend ein Ergebnis zu sehen um nicht ganz zu verzweifeln :X.

Jetzt hab ich noch eine Fehlermeldung zu beseitigen.

"Auf 'i' zugewiesener Wert wird niemals genutzt"
"Deklaration erwartet, aber Dateiende gefunden"


Muss ich 'i' nochmal irgendwie einen Wert zuweisen oder sowas? Wie beim zaehler := 0 ?

[Luckie]

Wie sieht denn dein Quellcode jetzt aus?

[loki91]

Delphi-Quellcode:

var
i,zaehler:integer;
s:string;
begin
s := Edit1.Text;
 i := 0;   // war nur ein versuch..
 zaehler := 0;
for i := 1 to length(s) do
     begin
  if s[i] = ' ' then
    zaehler := zaehler + 1;
    Label1.Caption := IntToStr(zaehler);

     end;

end;

[mkinzler]

Zitat:

ich brauch insgesamt 3 end's ?

Ja da es ja auch 3 begins sind ( das letzte end. gehört zum Begin der Unit)

[loki91]

das dritte end wird mir unterstrichen /:

Kann es sein dass die verschiedenen Aktionen sich gegenseitig behindern können?
Das Formular sieht so aus um mal eine kleine Vorstellung zu bekommen:
http://www.abload.de/img/formular6rex.jpg

[Luckie]

Formatiere doch mal deinen Quellcode ordentlich mit Einrückungen, dann siehst du auch deine Fehler.

[loki91]

das wird hier zum ratespiel ^^

Hab mal alles ein bisschen übersichtlicher gemacht und bin der Meinung der Fehler liegt irgendwo hier:

Delphi-Quellcode:

for i := 1 to length(s) do
     begin
  if s[i] = ' ' then

Fehlermeldung ist ja, "erwartet Deklaration, aber Dateiende gefunden" und alles was nicht deklariert worden ist bzw. nichts zugewiesen worden ist, ist das 'i' :/

[mkinzler]

Rücke mal die ganze Unit so ein, dass die begin/end Paare auf gleicher Position liegen