var
Y: Integer; begin Y := 1; // if Y < 0 then Exit;//安全检查 // if Y >= RichEdit1.Lines.Count then Exit;//安全检查 RichEdit1.CaretPos := Point(0, Y); RichEdit1.SelLength := Length(RichEdit1.Lines[Y]); RichEdit1.SelAttributes.Color := clRed; end;本文共 307 字，大约阅读时间需要 1 分钟。
var
Y: Integer; begin Y := 1; // if Y < 0 then Exit;//安全检查 // if Y >= RichEdit1.Lines.Count then Exit;//安全检查 RichEdit1.CaretPos := Point(0, Y); RichEdit1.SelLength := Length(RichEdit1.Lines[Y]); RichEdit1.SelAttributes.Color := clRed; end;转载于:https://www.cnblogs.com/lzj1981/archive/2013/04/29/3050554.html