Mein Minitest sieht so aus und funkt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
//begin
// RichEdit1.SelStart := 5;
// RichEdit1.SelLength := 10;
// RichEdit1.SetSelText('Verschlüsselt');
//
// RichEdit1.SelStart := 5;
// RichEdit1.SelLength := 10;
// RichEdit1.SelText := 'blah';
var
i, j, Markierung: Integer;
begin
Markierung := 0;
with RichEdit1 do
begin
for i := 0 to 199 do
begin
Markierung := Markierung + 1;
SelStart := Markierung;
SelLength := 1;
SelText := chr(32+Markierung);
end;
end;
end;
Wenn Du das RichEdit leerst, werden nur die neuen Zeichen hineingeschrieben. Damit kannst Du mal testen, ob das Richtige geschrieben würde.