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

{codecitation class="brush: pascal; gutter: false;" width="600px"}

 

 

 

В 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

Добавить комментарий