Leerzeichen in Edit1.Text verhindern

[lbccaleb]

ok dann ebend so:

Delphi-Quellcode:

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