TRichEdit

[youuu]

Ich habe dies nun so eingebaut:

Delphi-Quellcode:

procedure AddColoredText(Text: String; Color: TColor; const
  NewLn: Boolean = true);
begin
  begin
    FormMain.REAErgebnis.Lines[FormMain.REAErgebnis.Lines.Count -1] := FormMain.REAErgebnis.Lines[FormMain.REAErgebnis.Lines.Count -1]
      + Text;
  end;
  FormMain.REAErgebnis.SelStart := Length(FormMain.REAErgebnis.Lines.Text) -2 -Length(Text);
  FormMain.REAErgebnis.SelLength := Length(Text);
  FormMain.REAErgebnis.SelAttributes.Color := Color;
  FormMain.REAErgebnis.SelLength := 0;
  FormMain.REAErgebnis.SelStart := Length(FormMain.REAErgebnis.Lines.Text);
end;

Habe mit Absicht den Teil mit Lines.add weggelassen da ich dies woanderst realisiert habe und zwar hier:

Delphi-Quellcode:

      for I := 0 to 4  do
        Begin
          for E := 0 to 4 do
            Begin
              Test:= IntToStr(I) +':' + IntToStr(E) +'    zu    '+(Ergebnis[A])+' %';
              FormMain.REAErgebnis.lines.Add(Test);
              if StrToFloat(Ergebnis[A]) > 2 then
                Begin
                  AddColoredText(Test,clblue);          //    <<<<------
                End;
              A:= A + 1;
            End;
        End;

allerdings auch kein Erfolg siehe Screenshot (sogar der Zeilenumbruch klappte danach komischerweise nciht mehr)



Hier ein einmal der Quelltest als ich Die Color procedure rausgenommen habe + Screenshot

Delphi-Quellcode:

      for I := 0 to 4  do
        Begin
          for E := 0 to 4 do
            Begin
              Test:= IntToStr(I) +':' + IntToStr(E) +'    zu    '+(Ergebnis[A])+' %';
              FormMain.REAErgebnis.lines.Add(Test);
              A:= A + 1;
            End;
        End;

Dort klappte der Zeilenumbruch wieder.

Ich bin total Ratlos oder ich mache irgendwo einen dummen Fehler