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

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

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

[DeddyH]

Aber bitte nicht pos nennen

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