Delphi 1

Текущая позиция Tmemo II

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]