Richmemo Textposition einer Zeile ermitteln.

[Delphi-Delphin]

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;

[himitsu]

EM_LINEINDEX / EM_LINEFROMCHAR https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx


Über RichMemo.Text und RichMemo.Lines.Text darfst du niemals etwas suchen, denn LineBreak im RichEditControl ist #13,
aber Delphi konvertiert das zu sLineBreak (#13#10), womit die Char-Indize nicht mehr stimmen. (z.B. auch beim SelStart)