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]