Mega Code Archive

 

Categories / Delphi / ADO Database

 

Bde sürümünün alinmasi

function BDEVersion : string; var BDEVersion : SYSVersion; Day,Month,Hour,Min,MilliSec : Word; Year : Smallint; begin DbiGetSysVersion(BDEVersion); with BDEVersion do begin DbiDateDecode(dateVer,Month,Day,Year); DbiTimeDecode(TimeVer,Hour,Min,MilliSec); Result := format('Database Engine version %d.%.3d of %.2d/%.2d/%d, %.2dh:%.2dm:%.2ds',[Hi(iVersion),Lo(iVersion),Month,Day,Year,Hour,Min,MilliSec div 1000]); end; end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := BDEVersion; end;