Перенос записей из db в dbf

[liones]

Проблема такая: есть таблица paradox, из нее нужно перенести записи в dbase. При переносе вместо русских букв получается псевдографика. В BDE Administrator для DBASE установлен языковой драйвер dBASE RUS cp866. Для Paradox установлен языковой драйвер Paradox Cyrr 866. Программа для работы с dbf написана под dos, может в этом основная проблема. Как решить задачу переноса?

[Dimka]

А посредством чего осуществляется перенос?

[liones]

DM.TImport.FieldByName('FATHER').AsString:=fio;

[Dimka]

Т.е. посредством Delphi. А используемый компонент учитывает кодировки?

[liones]

использую компоненты Table и Query, нашла что у table есть метод function Translate(Src, Dest: PChar; ToOem: Boolean): Integer; override; не могу найти расшифровку параметров, что я должна указать в скобках не понятно и вобще как этот метод работает

[Алексей++]

судя по всему,
Src - источник
Dest - приёмник

[liones]

function ConvertAnsiToOem(const S: string): string;
{ ConvertAnsiToOem translates a string into the OEM-defined character set }
{$IFNDEF WIN32}
var
  Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
  {$IFDEF WIN32}
  SetLength(Result, Length(S));
  if Length(Result) > 0 then
    AnsiToOem(PChar(S), PChar(Result));
  {$ELSE}
  if Length(Result) > 0 then
  begin
    AnsiToOem(StrPCopy(Source, S), Dest);
    Result := StrPas(Dest);
  end;
  {$ENDIF}
end; { ConvertAnsiToOem }
вот что я нашла в просторах инета

[Oldy]

Проверьте, и хотя бы обнулите 30-й байт полученного DBF-файла, т.к. там находится информация о кодовой странице, а в dBASE, Foxpro и Clipper для DOS значения для одной и той-же кодовой страницы разные.