FreePascal.ru

Джентельмен
А похоже Ваш разработчик базы просто забыл при создании таблиц указать кодировку.
Если у Вас есть DataBase Desktop от Delphi, откройте в нём все таблицы по очереди, жмите кнопку "Restructure", выбираете справа в выпадающем меню "Table Language", жмёте кнопку "Modify" и выбираете "cp866 ...

и как им пользоватся?

Total Commander - по F3 открываю... вижу иероглифы... жму "S" вижу русские слова, которые можно прочитать... тоесть кодировка ASCII (DOS)... что дальше? как получить доступ к таблице (DB)?

Ну ерунда это писат программу... надо сконвертировать... а как? верней сконвертировать... теже попугаи... иероглифы один в один что были...

так... хорошо сконвертировал... теже самые иероглифы остались...

чем сконвертировать?

каким компонетом подключитса к DB базе? TDbf не подкючает...

Джентельмен
Вот код из Rx
function OemToAnsiStr(const OemStr: string): string;
begin
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result ...

вот вместо русских букв вижу только вопросительные знаки... помогите люди добрые...

Джентельмен
Значит Вы неправильно описали свою проблему. Если в парадоксовской таблице кодировка ср866 то у Вас должно быть так:
ANSI: Êðàìàòîðñê (или нечто подобное невообразимо тараканье)
OEM: Краматорск.
Но вот судя по этому у Вас перекодировка ...

а пример можно?

а нет... все выше перечисленные предложения работают, но не в моей ситуации... у меня беда в том что DBGrid не коректно отображает текст... насколько я понимаю должно быть так:
OEM: Êðàìàòîðñê
ANSI: Краматорск
а у меня: aAuEAAAi#a - ниначто не ...

Есть беда... есть база... парадоксовская... но не суть важно... как мне строку в кодировке cp866 преобразовать в ANSI. Может кто писал уже такие функции... поделитесь опытом...

самому интересно... сегодня проверю соединение с базой...

но как обьясни что архивные рабочие исходники перестали работать???