Anzahl der Zeichen im String (ohne Leerzeichen) zählen.

[thiagojonas]

Hallo Leute, ich habe jetzt als schriftliches Prüfungsfach Informatik.

Thema ist es mit den Datentyp String zu arbeiten.

Hier die Aufgabe:
Gesucht ist ein Programm, dass die Anzahl der Zeichen(außer Leerzeichen) in einem Memofeld zählt.

Meine Frage ist, wie ich das mit den Leerzeichen berücksichtigen kann?
Hier mein Code, so wie es funktioniert, nur halt mit Leerzeichen.

Delphi-Quellcode:

procedure TForm1.check_btn(Sender: TObject);
   var ck:string;
   var i:integer;
begin
ck := Memo1.Text;
i:= Length(ck);
Panel1.Caption := IntToStr(i);
end;

[edit=Matze]Titel geändert. MfG, Matze[/edit]

[mkinzler]

Leerzeichen zählen (Pos/PosEx) und von Gesamtanzahl abziehen

[Benedikt]

Hi,

Alternativ, wenn evtl. auch weniger performanent als die Lösung von mkinzler, einfach den ganzen String/Memo-Inhalt durchgehen und bei allem was nicht Leerzeichen ist selbst hochzählen.

MfG Benedikt

[Klaus01]

Guten Abend,

ein Weg ist mit StringReplace die Leerzeichen durch kein Zeichen zu ersetzen und dann die
Länge des Textes zu ermitteln.

Ein anderer Weg ist, die Zeichen des Textes zu überprüfen.
Wenn ein Zeichen kein Leerzeichen ist dann einen Zähler erhöhen.

Grüße
Klaus

[himitsu]

den Memoinhalt in eine Stringgvariable (S) kopieren,
in 'ner For-Schleife alles von Zeichen[1] bis Zeichen[Length(S)] durchgehen und auf in einer weiteren Variable mitzählen oft es vorkommt, daß ein Zeichen kein Leerzeichen ist (S[i] <> ' ')

[Meflin]

Oder aber 4. Möglichkeit:

Delphi-Quellcode:

Length(StringReplace(Memo1.Text, ' ','', [rfReplaceAll]));

Edit: öha, die is mitlerweile ja auch schon erwähnt ;)

[himitsu]

da fehlt noch ein Length(Memo.Text)- :zwinker:
(ist zwar ein einfacher Weg, aber dafür auch mit einer der Langsamsten)


:dp: Ach ja, würdest du bitte dem Thema(ersten Post) einen schöneren und vorallem aussagekräftigeren Namen verpassen?

[grenzgaenger]

Zitat:

Zitat von himitsu

den Memoinhalt in eine Stringgvariable (S) kopieren,
in 'ner For-Schleife alles von Zeichen[1] bis Zeichen[Length(S)] durchgehen und auf in einer weiteren Variable mitzählen oft es vorkommt, daß ein Zeichen kein Leerzeichen ist (S[i] <> ' ')

5. möglichkeit...

man nehme das for schleifchen ... und zähle die leerzeichen ... und ziehe die von der länge des strings ab ... ;-)

[mkinzler]

Zitat:

man nehme das for schleifchen ... und zähle die leerzeichen ... und ziehe die von der länge des strings ab ... Wink

Da wäre aber ein gezieltes Suchen (PosEx) besser

[thiagojonas]

Also, echt Leute. Vielen Dank für Eure Hilfe und für Eure wirkclich SCHNELLE Antworten. :-D
Funktioniert Super!!!