Leerzeichen in Edit1.Text verhindern

[lbccaleb]

oder eine nicht ganz so schöne methode:

Delphi-Quellcode:

var
  i: integer;
  tempstr: string;
begin
  tempstr := '';
  for i := 1 to Length(edit1.Text) do
    if edit1.Text[i] <> ' ' then
      tempstr := tempstr + edit1.Text[i];
  edit1.Text := tempstr;
end;

das in onchange einfügen..