Zeichen in String an Position x ersetzten

[TPeterT]

Hallo!
Ich habe es folgend gemacht:
Löscht alle Zeichen, welche markiert sind ...

Delphi-Quellcode:

     If (Sender as TcxDBTextEdit).SelLength > 0 then
      begin
       A := (Sender as TcxDBTextEdit).SelStart + 1;
       B := A + (Sender as TcxDBTextEdit).SelLength - 1;
       While A < B do
        begin
         Text[A] := #0;
         A := A + 1;
        end;
      end;

Liebe Grüsse
Peter

[edit=Sharky]Und noch einmal die Delphi-Tags gesetzt. Mfg, Sharky[/edit]