Hello everyone,
I use following code to get version of BDE.
But it seems not work with BDE5.11.
What is wrong with this piece of code?
Duplicate procedure:
1) Drop a button on the form
2) Drop a label on the form
3) Link button onclick event with following code
procedure TForm1.Button1Click(Sender: TObject);
var
BDESYSVersion: SYSVersion;
s: String;
begin
if dbiGetSysVersion(BDESYSVersion) = DBIERR_NONE then
s := Format('%f', [BDESYSVersion.iVersion / 100])
else
s := '';
Label1.Caption := s;
end;
// and result shows 5.00
Thanks in advance.
I look forward to hearing from you.
Best Regards
leigh
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
