{ Устанавливает русский LANGDRIVER для таблицы BDE (Paradox или dBASE)}

{ Таблица должна уже существовать на диске

 Если вы создаете таблицу динамически,

 не забудьте вызвать Table.CreateTable }

 procedure SetTableRussianLanguage(Table: TTable);

 var

  Props: CURProps;

  hDb: hDBIDb;

  TableDesc: CRTblDesc;

  OptDesc: FLDDesc;

  OptData: array [0..250] of Char;

  S: string;

 const  // Define propertly table type & codepage from list below

  LDName = 'ancyrr'; // Paradox ANSI Cyrillic

  // LDName = 'cyrr'; // Paradox Cyrr 866

  // LDName = 'DB866ru0'; // dBASE RUS cp866

 begin

 // Get handle (if table still not opened)

  Table.Open;

  // Get the table properties to determine table type...

  Check(DbiGetCursorProps(Table.Handle, Props));

  // Blank out the structure...

  FillChar(TableDesc, sizeof(TableDesc), 0);

  FillChar(OptDesc, SizeOf(OptDesc), #0);

  // Get the database handle from the table's cursor handle...

  Check( DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE,

  hDBIObj(hDb)));

  { If table name contain cyrillic or other native character,

  convert name to OEM }

  SetLength(S, Length(Table.TableName));

  CharToOEM(PChar(Table.TableName), @S[1]);

  // Put the table name in the table descriptor...

  StrPCopy(TableDesc.szTblName, S{Table.TableName});

  // Put the table type in the table descriptor...

  StrPCopy(TableDesc.szTblType, Props.szTableType);

  // Set the Pack option in the table descriptor to TRUE...

  StrCopy(OptDesc.szName, 'LANGDRIVER');

  OptDesc.iLen:=Length(LDName)+1;

  TableDesc.iOptParams:=1;

  TableDesc.pfldOptParams:=@OptDesc;

  TableDesc.pOptData:=@OptData;

  StrPCopy(OptData, LDName);

  // Close the table so the restructure can complete...

  Table.Close;

  // Call DbiDoRestructure...

  Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));

 end;