Q
qdshen
Unregistered / Unconfirmed
GUEST, unregistred user!
如题
K
KervenLee
Unregistered / Unconfirmed
GUEST, unregistred user!
用
DbiGetSysVersion(var sysVersion:SYSversion)这个funciton
它的sysversion=Packed Record
iVersion:Word;//引擎版本
iIntLevel:Word;//客户接口级别
dateVer
BIDATE;//版本发布的日期
timerVer:Time;//版本编译的时间
szVersion:array[0..19] of char;//版本名称
end;
DbiGetSysVersion(var sysVersion:SYSversion)这个funciton
它的sysversion=Packed Record
iVersion:Word;//引擎版本
iIntLevel:Word;//客户接口级别
dateVer
BIDATE;//版本发布的日期timerVer:Time;//版本编译的时间
szVersion:array[0..19] of char;//版本名称
end;
小
小人物
Unregistered / Unconfirmed
GUEST, unregistred user!
uses BDE;
procedure TForm1.Button1Click(Sender: TObject);
var
ThisVersion : SYSVersion;
begin
DbiGetSysVersion(ThisVersion);
ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ThisVersion : SYSVersion;
begin
DbiGetSysVersion(ThisVersion);
ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion));
end;
Q
qdshen
Unregistered / Unconfirmed
GUEST, unregistred user!
Thank You!!