Акжан в сети - На уровень вверх(VCL) Как в TMemo определить номер строки, в которой находится курсор и его местоположение в строке?

var
  X,Y: LongInt;
............
  Y := Memo1.Perform( EM_LINEFROMCHAR, Memo1.SelStart, 0 );
  X := Memo1.Parform( EM_LINEINDEX, Y, 0 );
  inc( Y );
  X := Memo1.SelStart - X + 1;
........

Alexey Glotov

(2:5020/382.18)