TRichEdit TextAttributes übernehmen

[user64629]

Ich hab es jetzt nicht probiert, aber wie würde es bei mehreren Zeilen bei dir aussehen? Die würden doch in eine Zeile wandern oder?

Außerdem hab ich es glaub ich selber :

Delphi-Quellcode:

procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j: Integer;
begin
 with Eingabetext_Formular.Eingabetext
  do begin
      for i := 0 to Lines.Count - 1
          do for j := 0 to Length(Lines[i]) - 1
                 do begin
                     SetFocus;
                     SelStart := SendMessage(Handle, EM_LINEINDEX, i, 0) + j;
                     SelLength := 1;
                     SelText := Text_Array [i, j];
                    end;
               end;
end;

Es scheint einwandfrei zu klappen Alle Formatierungen und Absätze bleiben beibehalten Trotzdem danke für deinen Versuch, kam jetzt nur leider eine Minute zu spät