Sorry, if you compile this, you may need to add BDE in your unit uses.
Best Regards
leigh
--------- Original Messsage ---------
From: Leigh Wanstead <[EMAIL PROTECTED]>
Sent on: Mon, 8 May 2000 15:16:12 +1200
-------------------------------------
> 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
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
