Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Не получается вставить в таблицу записи со строками на русском языке

01.01.2007

В Database Desktop поставьте правильный Language Driver у таблицы, например, Pdox ANSI Cyrr.

Это простой вопрос в том случае, если база уже создана на диске. Если мы создаем базу динамически из программы, то как потом поставить русский язык без Database Desktop'а?

Оказывается это не так просто. Я перерыл весь инет и так и не нашел. В итоге пришлось потрудится и получилась следующая функция:

{ Устанавливает русский 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;

Взято с https://delphiworld.narod.ru