TRichEdit TextAttributes übernehmen

[user64629]

Man kann ein RTF Dokument auch mit dem Texteditor öffnen, dann sieht man auch alles.
Ich weiß das eigentlich nur der Text verschlüsselt wird, aber da ich den Text Buchstabe für Buchstabe in ein Array lade, jeden Buchstabe verschlüssel und dann alles wieder ausgebe verschwindet die Formatierung... Deswegen dachte ich, es gäbe eventueel eine Möglichkeit die Formatierung beizubehalten..

Hier mal die Prozedur, die den Text wieder ausgibt:

Delphi-Quellcode:

var Text_Array: Array of Array of Char;
    Zeilen_Array: Array of String;

procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j: Integer;
begin
 SetLength(Zeilen_Array, Eingabetext_Formular.Eingabetext.Lines.Count);
 for i := 0 to Eingabetext_Formular.Eingabetext.Lines.Count - 1
     do for j := 0 to Length(Eingabetext_Formular.Eingabetext.Lines[i]) - 1
            do Zeilen_Array[i] := Zeilen_Array[i] + Text_Array [i, j];
 Eingabetext_Formular.Eingabetext.Lines.Clear;
 for i := 0 to Length(Zeilen_Array) - 1
     do Eingabetext_Formular.Eingabetext.Lines.Add(Zeilen_Array[i]);
end;

Ich lade vorher jeden Buchstaben einzeln, der Zeile entsprechend in ein Array of Char. Dannach lade ich dann jede Zeile wie sie vorher war, verschlüsselt in ein Array of String, damit ich wieder ganze Zeilen hab, und dann gebe ich diese Zeilen wieder einzeln aus...

Edit:
Übrigens mit:

Delphi-Quellcode:

var Text_Array: Array of Array of Char;

procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j: Integer;
begin
 SetLength(Zeilen_Array, Eingabetext_Formular.Eingabetext.Lines.Count);
 for i := 0 to Eingabetext_Formular.Eingabetext.Lines.Count - 1
     do for j := 0 to Length(Eingabetext_Formular.Eingabetext.Lines[i]) - 1
            do Eingabetext_Formular.Eingabetext.Lines[i][j + 1] := Text_Array [i, j];
end;

geht das ganze nicht: "E2064 Der linken Seite kann nichts zugewiesen werden"