Mega Code Archive

 

Categories / Delphi / Examples

 

Determine the version of the bde

This function determines some information about the BDE (version): uses DbiTypes, DbiProcs, DbiErrs; ... function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion; begin Check(DbiGetSysVersion(Result)); if SysVerList <> nil then begin with SysVerList do begin Clear; Add(Format('ENGINE VERSION=%d', [Result.iVersion])); Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel])); Add(Format('VERSION DATE=%s', [DateToStr(Result.dateVer)])); Add(Format('VERSION TIME=%s', [TimeToStr(Result.timeVer)])); end; end; end; {from BDE32.hlp}