procedure TMyForm.BitBtn1Click(Sender: TObject); var iLine : Integer ; begin iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0); { Примечание: первая строка нулевая } messageDlg('Номер строки: ' + IntToStr(iLine), mtInformation, [mbOK], 0 ) ; end; |
Не знаю, как было раньше (там в углу написано "Delphi 1"), но в Делфи5 у ТMemo есть св-во
property CaretPos: TPoint; |
которое и решает эту проблему.
Т.е
Label1.Caption:='Строка '+IntToStr(memo1.caretpos.y); Label2.Caption:='Столбец '+IntToStr(memo1.caretpos.x); |
должно вполне работать.
По материалам книги г-на Архангельского "100 компонентов общего назначения в DELPHI 5" (за точность названия/фамилии не ручаюсь, книги под рукой нет). [000482]