Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков КРЭКЕРСТВО + ПРОГРАММИРОВАНИЕ 2017
(актуальность: апрель 2017)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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


 {Извлекает физический номер записи 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS