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

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

loki

[Matze]

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:

for i := 1 to Length(DeinString) do Auf ein einzelnes Zeichen kannst du so zugreifen bzw. es mit einem Char, hier ' ', vergleichen:

DeinString[i] Den rest kriegst du hin.

[mkinzler]

Geht aber auch in einer Zeile

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