Einzelnen Beitrag anzeigen

Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: buchstaben aus String rausfiltern ??

  Alt 17. Aug 2007, 23:38
Du hast die Großbuchstaben vergessen. Übrigens geht das auch einfacher:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s, t: String;
    I: Integer;
begin

  t:=Edit1.Text;

  for I:=1 to length(t) do
    if not (t[I] in ['A'..'Z', 'a'..'z']) then //Man kann hier noch 'Ä'..'Ü', 'ä'..'ü' hinzufügen
      s:=s+t[I];

  StaticText1.Caption := s;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat