TRichEdit

[blink182]

Die Schweizer helfen^-^ http://www.swissdelphicenter.ch/torr...de.php?id=1129

Delphi-Quellcode:

procedure RE_ColorLine(ARichEdit: TRichEdit; ARow: Integer; AColor: TColor);
begin
  with ARichEdit do
  begin
    SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
    SelLength := Length(Lines[ARow -1]);
    SelAttributes.Color := AColor;
    SelLength := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;   s:string;
begin
for i:=0 to RichEdit1.lines.count-1 do
begin
s:=strtoint(RichEdit1.lines[i]);
s:=copy(s,Pos('    zu    ',s)+length('    zu    ')+1,length(s));
s:=copy(s,1,Pos('%',s)-1); // hier bin ich mir nicht sicher ob die -1 dahin gehört, glaub aber schon, sollte soweit dann an deine Zeile angepasst sein
//s:=Stringreplace(s,'.',#40,[]); hab gerade nochmal geschaut, dass ist ja schon ein Komma ;) 
if strtofloat(s)>2 then
begin
 RE_ColorLine(RichEdit1,i+1,clred);
 richEdit1.selattributes.color:=clblack; // das hier braucht man glaub ich auch nicht 
end
end

end;

hoffe das klappt