Richedit mit formatierten text füllen und drucken

[Sidorion]

Ich hab ein ähnliches Problem:
Ich will über Programmcode dem RichEdit eine neue Zeile zufügen, die dann z.B.: so aussehen soll:
'Dies ist eine Testzeile'
Ich habs damit probiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  iLoop: Integer;
  iSection: Integer;
begin
  iLoop:=1;
  iSection:=1;
  While iLoop <= Length(Edit1.Text)
  Do Begin
    If  Edit1.Text[iLoop]='/'
    Then Begin
      Inc(iLoop);//eat /
      If Edit1.Text[iLoop]='c' //color
      Then Begin
        Inc(iLoop);//eat c
        If Edit1.Text[iLoop]='1'
        Then RichEdit1.SelAttributes.Color:=clBlue
        Else If Edit1.Text[iLoop]='0'
        Then RichEdit1.SelAttributes.Color:=clBlack;
        Inc(iLoop); //eat number
      End;
    End;
    RichEdit1.Text:=RichEdit1.Text+Edit1.Text[iLoop];
    Inc(iLoop);
  End;
end;

Im Beispiel ist edit1.text='Dies ist /c1eine /c0Testzeile' und das 'eine' sollte eigentlich blau dargestellt werden, wirds aber nicht.
Das Problem ist wohl,dass sobald man RichEdit1.Text aufruft, der gesamte Text alle Formatierungen verliert(das gleiche gilt für RichEdit1.Lines[index]).

[Sidorion]

!!!!!!!!EUREKA!!!!!!!!!!!
das Tauschen dieser Zeile:

Delphi-Quellcode:

    RichEdit1.Text:=RichEdit1.Text+Edit1.Text[iLoop];

mit dieser Zeile:

Delphi-Quellcode:

    RichEdit1.SelText:=Edit1.Text[iLoop];

funktioniert!
@BastardOp: hier kannst Du auch deine Variablen einfügen:

Delphi-Quellcode:

    RichEdit1.SelText:=MyStringVar;

wenn nix markiert ist, fügt er den SelText hinten an.

[Lannes]

Hallo,

Zitat:

Zitat von BastardOp

also ich weiß wie ich einem rich edit über den OE einen standart text geben kann und ich kann halt wenn das proggie läuft text ins feld eingeben.
Aber ich möchte nun text in dem gewisse stellen fet oderr größer sind und in dem Variablen vorkommen. Aber ich weiß nicht wie ich diese automatisch im richedit laden kann.als rtf-datei habe ich es momantan nicht da ich nichtz weiß ob ich da drin varibalen verwenden kann

eine andere Möglichkeit/Lösung ist dort zum gleichen Problem zu finden:DF: Formatierten Text an Richedit übergeben?

[BastardOp]

also irgendwei werd ich aus euren antworten nicht schlau. Ich habe einfach einen text den ich meintewegen auch als rtf speicher und diese möchte ich erstmal ins Richedit einfügen. Dabei sollen die formatierungen die ich vorher angegeben habe beibehalten werden, wenn ich dann in dem text stellen durch zeichen wie & makieren sollen diese später durch variablen ertsezte werden.