Leerzeichen in Edit1.Text verhindern

[himitsu]

besser währe wohl Beides
- erst garkein Leerzeichen beim Eingeben erlauben > muß man es auch nicht mehr unschön löschen
- und den Cursor muß man ja auch nicht ständig verschieben

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ' ' then 
    Key := #0;
end;

procedure TForm1.Edit1Change(sender:TObject);
var
  s: String;
  i: Integer;
begin
  s := TEdit(Sender).Text;
  if pos(' ', s) > 0 then
  begin
    i := TEdit(Sender).SelStart;
    TEdit(Sender).Text := StringReplace(S, ' ', '', [rfReplaceAll]);
    TEdit(Sender).SelStart := i;
  end;
end;