Leerzeichen in Edit1.Text verhindern

[_frank_]

der einzige fehler den ich in meinem Code finden konnte war der letzte Parameter von delete...s statt 1.

ansonsten wäre noch die geschichte mit dem cursor, wo man den erstmal sichert und dann ggf. anpasst.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
    p,cp:integer;
begin
  s:=(sender as TEdit).text;
  cp:=edit1.SelStart;
  p:=pos(' ',s);
  while p>0 do
  begin
    delete(s,p,1);
    if cp<=p then dec(cp);
    p:=pos(' ',s);
  end;
  (sender as TEdit).text:=s;
  (sender as TEdit).SelStart:=cp;
end;

HTH Frank