<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetLdName

Obtain the current dBASE language driver and display its name in a dialog box.

 

procedure fDbiGetLDName;

var

 S: String;

begin

 SetLength(S, dbiMaxNameLen + 1);

 Check(DbiGetLdName(szDBASE, nil, PChar(S)));

 SetLength(S, StrLen(PChar(S)));

 ShowMessage('Current dBASE Language driver is ' + S);

end;