Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 961

•  TDictionary Custom Sort  6 067

•  Fast Watermark Sources  5 867

•  3D Designer  8 691

•  Sik Screen Capture  6 191

•  Patch Maker  6 623

•  Айболит (remote control)  6 620

•  ListBox Drag & Drop  5 477

•  Доска для игры Реверси  95 464

•  Графические эффекты  6 827

•  Рисование по маске  6 020

•  Перетаскивание изображений  5 005

•  Canvas Drawing  5 375

•  Рисование Луны  5 101

•  Поворот изображения  4 640

•  Рисование стержней  3 277

•  Paint on Shape  2 519

•  Генератор кроссвордов  3 411

•  Головоломка Paletto  2 724

•  Теорема Монжа об окружностях  3 512

•  Пазл Numbrix  2 313

•  Заборы и коммивояжеры  2 999

•  Игра HIP  1 956

•  Игра Go (Го)  1 873

•  Симулятор лифта  2 220

•  Программа укладки плитки  1 937

•  Генератор лабиринта  2 376

•  Проверка числового ввода  2 063

•  HEX View  2 386

•  Физический маятник  2 018

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Запись nnn из nnn



Автор: OAmiry (Borland)

Нет ли метода или свойства, позволяющих осуществить сабж из 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 © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте