1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #include <BDE.hpp>
6   #include <Dbtables.hpp>
7   #pragma hdrstop
8   
9   #include "Unit1.h"
10  //---------------------------------------------------------------------------
11  #pragma package(smart_init)
12  #pragma resource "*.dfm"
13  TForm1 *Form1;
14  //---------------------------------------------------------------------------
15  __fastcall TForm1::TForm1(TComponent* Owner)
16          : TForm(Owner)
17  {
18  }
19  //---------------------------------------------------------------------------
20  
21  void __fastcall TForm1::Button1Click(TObject *Sender)
22  {
23  //this function gets the list of BDE language drivers
24  hDBICur hCur;
25  LDDesc LD;
26  AnsiString sHold;
27  int cnt;
28  cnt=0;
29  Check(DbiInit(NULL));
30  Check(DbiOpenLdList(hCur));
31     while (DbiGetNextRecord(hCur, dbiNOLOCK, &LD, NULL) == DBIERR_NONE)  {
32       cnt += 1;
33    sHold= AnsiString(cnt) + AnsiString(" Name:")+AnsiString(LD.szName);
34    sHold+=AnsiString(" Code Page: "+ LD.iCodePage)+AnsiString(" Description: ");
35    sHold+=AnsiString(LD.szDesc);
36    Memo1->Lines->Add(sHold);
37    sHold="";
38     }
39     Check(DbiCloseCursor(hCur));
40     Check(DbiExit());
41  }
42  //---------------------------------------------------------------------------