Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

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

 
 
 

Советы по delphi \ Базы данных \ DBASE и DBF \ Текущий номер записи набора данных

Текущий номер записи набора данных

{Извлекает физический номер записи xBase. Требует наличие модулей DBITYPES, DBIPROCS, и DBIERRS в списке используемых модулей. Функция требует на входе один аргумент типа TTable (например, Table1).} function Form1.Recno(oTable: TTable): Longint; var rError: DBIResult; rRecProp: RECprops; szErrMsg: DBIMSG; begin Result := 0; try oTable.UpdateCursorPos; rError := DbiGetRecord(oTable.Handle, dbiNOLOCK, nil, @rRecProp); if rError = DBIERR_NONE then Result := rRecProp.iPhyRecNum else case rError of DBIERR_BOF: Result := 1; DBIERR_EOF: Result := oTable.RecordCount + 1; else begin DbiGetErrorString(rError, szErrMsg); ShowMessage(StrPas(szErrMsg)); end; end; except on E: EDBEngineError do ShowMessage(E.Message); end; end;

Название: Текущий номер записи набора данных
Дата публикации: 2004-03-17 (4882 Прочтено)

 
 

 

Page generation 0.033 seconds