Dummer Schleifen Fehler!

[DeddyH]

Andere Möglichkeit mit case:

Delphi-Quellcode:

procedure TForm1.Edt_Change(Sender: TObject);
var          i: integer;
       Ausgabe: String;

Begin
  Ausgabe := Edt_.Text;
  For i:= length(Ausgabe) downto 1 do
       case Ausgabe[i] of
          ' ',
          '.',
          '-':;
          else
            Begin
              showmessage('Ungültige(s) Zeichen in der Eingabe!');
              Delete(Ausgabe,i,1);
              Edt_.Text := Ausgabe;
            End;
       end;
End;//Edt_Change