Determine the version of the BDE

Problem/Question/Abstract:

Determine the version of the BDE

Answer:

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}