Ein Wort vor und nach einem markiertem Text einfügen

[Niko]

Hallo,

ein Memo kann nur einfarbigen Text darstellen. Wenn du statt dem Memo ein TRichEdit verwendest müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  A = '[Anfang]';
  B = '[Ende]';
var
  s: String;
begin
  with RichEdit1 do
  begin
    s := SelText;
    SelAttributes.Color := clRed;
    SelText := A;
    SelAttributes.Color := clWindowText;
    SelStart := SelStart + SelLength;
    SelLength := 0;
    SelText := s;
    SelAttributes.Color := clRed;
    SelText := B;
    SelAttributes.Color := clWindowText;
  end;
end;