Leerzeichen in Edit1.Text verhindern

[_frank_]

Zitat von Matze:

das geht sicher, doch ich würde dafür das OnKeyPress-Ereignis nutzen:

und was ist mit copy&paste? ich würde schon das OnChange nehmen, so in etwa (ungetested):

Delphi-Quellcode:

procedure TForm1.Edit1Change(sender:TObject);
var s:string;
    p:integer;
begin
  s:=(sender as TEdit).text;
  p:=pos(' ',s);
  while p>0 do
  begin
    delete(s,p,s);
    p:=pos(' ',s);
  end;
  (sender as TEdit).text:=s;
end;

HTH Frank