oder dieses ^^
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,Line,sz:integer;
begin
sz:=0; //-- sz Startzeichen
Line:=strtoint(edit1.Text)-1; //-- (-1) weil Richedit Index bei 0 anfängt
for i:=0 to Line do
begin
sz:=sz+length(richedit1.Lines[i])+2; //-- (+2) weil hinter jeder Line noch 2 nicht sichtbare Zeichen stehen
end;
richedit1.SelStart:=sz-length(richedit1.Lines[Line])-2;
richedit1.SelLength:=length(richedit1.Lines[Line]);
richedit1.SelAttributes.Color:=clred;
end;
umständlich aber es funzt auch ^^
mann kann es auch in ne procedure schreiben um dan mehrere zeilen
zu makieren.
mfg Xe0n