Überflüssiges Return löschen

[berens]

Hallo!

Für den Fall, dass du die Eingabe bei "OnChange" überprüfst, versuche mal das:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Text := trim(Edit1.Text);
  // ...
end;

Trim Routine: Entfernt alle am Anfang und Ende eines Strings vorhandenen Leer- und Steuerzeichen.

Ansonsten könntest du in OnKeyDown die Eingabetaste #13 sperren, oder bei der überprüfung der Eingabe nur die ersten x-Stellen untersuchen.

Wenn Du noch mehr Tips brauchst, ruhig schreiben