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