Wie ist es möglich bei einem Richmemo (oder Memo allgemein) die Posistion zu finden, an der eine über den Index bekannte Zeile (Lines[i]) beginnt?
Ich habe möchte bestimmte Zeilen mit SetRangeColor einfärben, jedoch wird dafür die Position im Text benötigt.
procedure SetRangeColor(TextStart, TextLength: Integer; FontColor: TColor);
Ich habe es mit folgendem versucht, jedoch gibt es dort Probleme bei identischen Zeilen, wo immer die Position der ersten passenden Zeile zurückgegeben wird:
Delphi-Quellcode:
function RichMemoLineToTextPos(RichMemo: TRichMemo; Line: Int64): Int64;
begin
result := pos(RichMemo.Lines[Line],RichMemo.Text)-1;
end;