richedit formatieren

[Volker Z.]

Hallo,

ich weiß nicht, ob ich Dein Problem richtig verstanden habe; Du kannst es mal so versuchen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    RichEdit1.Lines.BeginUpdate;
    RichEdit1.SelStart  := 0;
    RichEdit1.SelAttributes.Style := [];
    RichEdit1.SelText := sLineBreak;
    RichEdit1.Lines.Insert(0, Label1.Caption + ' ' + Edit1.Text);
    RichEdit1.Lines.Insert(1, Label2.Caption + ' ' + Edit2.Text);
    RichEdit1.Lines.SaveToFile('D:\richedit-datei.rtf');
  finally
    RichEdit1.Lines.EndUpdate
  end
end;

Gruß