domingo, 13 de setembro de 2009

Obtendo a versão da tabela

Unit Dbutils;
interface
uses
DbTables;
function DbGetVersion(table: TTable): LongInt;
implementation
uses
Db, DbiProcs, DbiTypes, {DbiErrs,}
SysUtils
function DbGetVersao(table: TTable): LongInt;
var
hCursor : hDBICur;
tableDesc: TBLFullDesc;
cName : array[0..255] of Char;
begin
{ make c-string copy table name }
StrPCopy(cName, table.TableName);
Check(DbiOpenTableList(table.DBHandle, True, False, cName, hCursor));
Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @tableDesc, nil));
Result := tableDesc.tblExt.iRestrVersion;
Check(DbiCloseCursor(hCursor));
end;
end.

p.491

Nenhum comentário:

Postar um comentário