TRichEdit Einzelne Zeile Formatieren

[taaktaak]

Na, dann probiere mal das hier:

Delphi-Quellcode:

procedure TfoTest19.FormShow(Sender:TObject);
var i : Integer;

  procedure AddRow(RE:TRichEdit;Text:String;Align:TAlignment);
  begin
    Re.Lines.Add(Text);
    Re.SelStart:=length(RE.Text)-1;
    RE.Paragraph.Alignment:=Align
  end;

begin
  for i:=0 to 3 do
    if odd(i) then AddRow(RichEdit1,'Left',taLeftJustify)
              else AddRow(RichEdit1,'Right',taRightJustify)
end;