Запись nnn из nnn

Нет ли метода или свойства, позволяющих осуществить сабж из Delphi?

Для этого необходимо поработать с BDE. Нижеприведенный код у меня работает прекрасно. Условия выполнения: A) Вы используете таблицы dBASE B) На форме расположен компонент DBNavigator B) На форме расположен табличный компонент с именем Table1 C) На форме расположен компонент Label с именем Label1 D) Обработчик события OnClick компонента DBNavigator имеет следующий код:

procedure

TForm1.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

;

Получить номер записи можно в момент показа формы или в момент открытия таблицы.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com