Leerzeichen in einem String zählen

[loki91]

Hallo,

Ich hab ein Problem mit delphi 5 ... hab so gut wie keine Erfahrung, wir lernen delphi gerade in der schule :/

Ich soll in einem String, der z.B.: "Das ist ein Beispielsatz" heißt, die Leerzeichen zählen und in einem edit Feld wiedergeben, wenn auf einen Button gedrückt wird.
Nun ja ich hab nun unzählige Google-Suchen gestartet aber kein Thema traf auf meins zu.

Kann wer helfen?


loki

[mkinzler]

Entweder
-mit Pos()/PosEx() Leerzeichen suchen oder
-Lange ermittlen; Leerzeichen durch Leerstrings ersetzen; neue länge ermittlen -> Unterschied

[himitsu]

oder

in einer Schleife alle Zeichen durchgehn
und alle Leerzeichen zählen, welche vorbeikommen :roll:

[Luckie]

Erstmal falsche Forum. Das hat nichts mit der IDE zu tun.

Zweitens kann man über den Index auf ein Zeichen in einem String zu greifen. Mit einer for-schleife so nacheinander auf jedes einzelne Zeichen. Jetzt überlege mal weiter.

@mkinzler: Ist das nicht etwas umständlich?

[mkinzler]

Nein warum? Sind 3 Befehle

[Luckie]

Er braucht doch die Anzahl. Wie bekommt er bei deiner Vorgehensweise die Anzahl?

[loki91]

oh man peinlich xD :oops: ich hab ja so keine ahnung...

Wenn mir jemand sagt:

Zitat:

oder

in einer Schleife alle Zeichen durchgehn
und alle Leerzeichen zählen, welche vorbeikommen

dann mag das zwar selbstverständlich klingen, ich kann damit aber null anfangen >.<

Habs nun so:

Delphi-Quellcode:

var
s:string;
begin
Edit1.Text := s;
Pos(' ',s);
end;

end.

Nun wird, wenn ich den Button drücke, das Edit1 Feld, in dem der Satz stand, einfach gelöscht...was mach ich falsch? (ich weiß ist einiges...:P)

loki

[Matze]

Zitat:

Zitat von Luckie

Er braucht doch die Anzahl. Wie bekommt er bei deiner Vorgehensweise die Anzahl?

Das hat Markus doch geschrieben:

- alte Länge mit Length() ermitteln und in Variable speichern
- Leerzeichen im String durch einen Leerstring ersetzen mit StringReplace()
- neue Länge ermitteln
- AlteLänge - NeueLänge = Anzahl der Leerzeichen

Hm, das wären aber 4 Schritte.

Edit: Einen String kannst du so durchgehen:

Delphi-Quellcode:

for i := 1 to Length(DeinString) do

Auf ein einzelnes Zeichen kannst du so zugreifen bzw. es mit einem Char, hier ' ', vergleichen:

Delphi-Quellcode:

DeinString[i]

Den rest kriegst du hin. ;)

[mkinzler]

Geht aber auch in einer Zeile :zwinker:

[Luckie]

Delphi-Quellcode:

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

Den Rest überleg dir mal selber.

@Matze: Jetzt hab eich es auch verstanden. Gar nicht mal so dumm. ;) Aber ich glaube, der Lehrer dachte eher an eine Schleife.

[himitsu]

Zitat:

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

Delphi-Quellcode:

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); ?

[mkinzler]

Es fehlt auch das Prozedurende

[Luckie]

Zitat:

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

[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.