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!!!

[thiagojonas]

Habe da mal noch zwei kleine Frage. Wie kann ich Vokale in der Memo zählen lassen?

2.Wie kann ich mehrere Sachen replacen, also z.B. alle Vokabeln.

Delphi-Quellcode:

Length(StringReplace(ck, ' ','', [rfReplaceAll]));

[Luckie]

Wobei ich mir ziemlich sicher bin, dass der Lehrer bestimmt nicht die Möglichkeiten mit StringRepalce und Length haben wollte.

Zitat:

Zitat von thiagojonas

Habe da mal noch zwei kleine Frage. Wie kann ich Vokale in der Memo zählen lassen?

In dem du in der for-Schleife nicht auf das leerzeichen prüfst, sondern auf die Vokale.

Noch ein Indiz, dass der Lehrer wohl die for-Schleife mit dem überprüfen jede einzelnen Zeichens haben wollte. Lernziel sind wohl Schleifen und if-Abfragen. Erst war es nur eine einfache Abfrage -- nur Leerzeichen -- jetzt geht es wohl darum Bedingungen mit logischen Operatoren zu verknüpfen.

[mkinzler]

In diesem Fall wäre eine Schleife eine gute Lösung
Oder mehrere geschachtelte StringReplace

[thiagojonas]

Tut mir leid, ich weiß leider nicht wie ich in diesem Fall mit Length eine For Schleife bilden soll :?:
Kann mir jemand einen Ansatz geben, damit ich mir selber erklären kann?
Danke

[TonyR]

Na die Schleife lässt du von 1 bis Length(memo.text) laufen und als If-Abfrage in jeden Schleifendurchlauf nimmst du etwas ala

Delphi-Quellcode:

if 'a' in ['a','e','i','o','u'] then showmessage('moin');

Edit: Und ich hoffe, dass du weißt, wie man auf einzelne Zeichen eines Strings zugreift!?

Delphi-Quellcode:

einText[1]

[mkinzler]

Delphi-Quellcode:

For i := 1 to Length( str) do
    if UpperCase(str[i]) in ['A', 'E', 'I', 'O', 'U'] then inc( Vokale);

[Hador]

Nur mal der Vollständigkeit halber die Methode mit PosEx:

Delphi-Quellcode:

procedure TextLength(txt: String; ignore: Char);
var
  count, pos: Integer;
begin
  pos := 0;
  count := -1;
  repeat
    pos := PosEx(ignore, txt, Succ(pos));
    Inc(count);
  until pos = 0;
  ShowMessage(IntToStr(Length(txt)) + ' Zeichen - '
              + IntToStr(count) + ' "' + ignore + '" = '
              + IntToStr(Length(txt) - count) + ' Zeichen');
end;

EDIT: Das kommt davon, das man mehrere Tage irgendwelche Tabs offen lässt. Dank Browsercache steht da dann immer noch "heute" beim letzten Beitrag :wall:

[DeddyH]

Aber bitte nicht pos nennen :zwinker:

[heytheredelilah]

ist dad der stil von eurem informatiklehrer?

Zitat:

procedure TForm1.check_btn(Sender: TObject);
var ck:string;
var i:integer;

dann ist das aber ein VERDAMMT schlechter lehrer!