|
Registriert seit: 29. Sep 2004
302 Beiträge
Turbo Delphi für Win32
|
Re: Manuell Entfernen
27. Feb 2005, 18:21
Hi!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Text: String;
i: Integer;
begin
Text:= RichEdit1.Text;
i:= RichEdit1.SelStart;
Delete(Text, i + 1, 1);
RichEdit1.Text:= Text;
RichEdit1.SelStart:= i;
end;
So sollte es funktionieren.
Lennard
Der Vorteil der Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist schon schwieriger. (Kurt Tucholsky)
|