Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Нет ли метода или свойства, позволяющих осуществить сабж из Delphi?
Для этого необходимо поработать с BDE. Нижеприведенный код у меня работает прекрасно. Условия выполнения: A) Вы используете таблицы dBASE B) На форме расположен компонент DBNavigator B) На форме расположен табличный компонент с именем Table1 C) На форме расположен компонент Label с именем Label1 D) Обработчик события OnClick компонента DBNavigator имеет следующий код:
procedureTForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); var
pRecProperty: pRECProps; begin
if
Button in
[nbFirst, nbPrior, nbNext, nbLast] then
begin
if
MaxAvail > SizeOf(RECProps) then
begin
GetMem(pRecProperty, SizeOf(RECProps)); DbiGetRecord(Table1.Handle, dbiNOLOCK, nil
, pRecProperty); Label1.Caption := Concat('Запись: ', IntToStr(pRecProperty^.iPhyRecNum), ' из ', IntToStr(Table1.RecordCount)); FreeMem(pRecProperty, SizeOf(RECProps)); end
; end
; end
;
Получить номер записи можно в момент показа формы или в момент открытия таблицы.