Как определить номер текущей строки в TMemo?

Вопрос:

Как определить номер текущей строки в TMemo?

Ответ:

Чтобы определить номер текущей строки любого объекта управления edit - пошлите ей сообщение EM_LINEFROMCHAR

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  LineNumber : integer;
begin
  LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);
  ShowMessage(IntToStr(LineNumber));
end;