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

ВИДЕОКУРС
выпущен 4 ноября!


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

БОЛЬШОЙ FAQ ПО DELPHI



Пакование таблицы

- Христос воскрес! - Fixed.


 function dgPackParadoxTable(Tbl: TTable; Db: TDatabase): DBIResult;
 { Packs a Paradox table by calling the BDE DbiDoRestructure
 function. The TTable passed as the first parameter must
 be closed. The TDatabase passed as the second parameter
 must be connected. }
 var
   TblDesc: CRTblDesc;
 begin
   Result := DBIERR_NA;
   FillChar(TblDesc, SizeOf(CRTblDesc), 0);
   StrPCopy(TblDesc.szTblName, Tbl.TableName);
   TblDesc.bPack := True;
   Result        := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil, False);
 end;
 
 function dgPackDbaseTable(Tbl: TTable): DBIResult;
 { Pack a dBASE table by calling DbiPackTable. The table
 passed as a parameter will be opened if it isn't open. }
 begin
   Result := DBIERR_NA;
   if Tbl.Active = False then
     Tbl.Open;
   Result := DbiPackTable(Tbl.DBHandle, Tbl.Handle,
     nil, nil, True);
 end;
 




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



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



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


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