Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: buchstaben aus String rausfiltern ??
18. Aug 2007, 00: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
|