DBR Delphi-Ecke

// Hiermit kann man in TEdit, TRichEdit oder TMemo einen String an der
// aktuellen Kursorposition einfügen bzw. markierten Text ersetzen. Mit
// LoeschErlaubnis wird festgelegt, ob der markierte Text auch dann
// gelöscht wird, wenn der einzufügende String = '' (nichts) ist.

// Getestet mit D4 unter WinME

procedure Einsetzen(Edt: TCustomEdit; Txt: string; LoeschErlaubnis: boolean); 
begin 
  if (txt <> '') or LoeschErlaubnis then 
    Edt.perform(EM_REPLACESEL, integer(true), integer(pchar(txt))); 
end; 
 
 
// --- Beispielaufrufe --- 
 
// Text einfügen bzw. ersetzen 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  einsetzen(Richedit1, 'Test', true); 
end; 
 
// nur Markierung löschen 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  einsetzen(Richedit1, '', true); 
end; 
 
// es passiert nichts 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  einsetzen(Richedit1, '', false); 
end;