Wahre Position des Cursors im Memo

[himitsu]

Delphi-Quellcode:

S := Copy(Memo1.Text, 1, Memo1.SelStart);
Line := 0;
for i := 1 to Length(S) do
  if S[i] = #10 then Inc(Line);