Запись nnn из nnn

Советы » Записи, индексы, поля, закладки » Запись 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
;

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

Запись nnn из nnn

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

Категории

Статьи

Советы