var
ReplaceTxt : string;
begin
ReplaceTxt := RichEdit1.Lines.Strings[RichEdit1.Lines.Count-1];
RichEdit1.SelStart := RichEdit1.FindText(ReplaceTxt, 0, length(Richedit1.Text), [stWholeWord]);
RichEdit1.SelLength := Length(ReplaceTxt);
if Length(Trim(RichEdit1.SelText)) > 0 then
RichEdit1.SelAttributes.Color := clred;
RichEdit1.SelStart := 0;
RichEdit1.SelLength := 0;
end;
이와 같이 리치에디트의 제일마지막줄의 색을 변경할려고 하고 있습니다.
하지만 여기에서는 지금 마지막줄과 똑같은 글이있는 줄이 있었다면 그줄이 변경되는
황당한 일이 발생합니다.
좀더 간단하고 쉽게 특정라인의 글의 색깔을 변경할수 있는 방법이 없습니까?
FindText의 검색시작부분을 넣어주는 값을 계산하는 것이 조금 문제힘들어서....