Экспорт из Paradox в ASCII файл с кодовой страницей 852

function
 ConvertTo852(S: string
): string
;
var

  A : integer;
  Ch : char;
begin

  setlength(Result,Length(S));
  for
 A := 1 to
 length(S) do

  begin

    case
 S[A] of

      <code>: Ch := <852code>
      <code2>: Ch := <852code2>
      ...
      else
 Ch := S[A];
    end
;
      Result[A] := Ch;
  end
;
end
;

Другое по теме:

• ASCII драйвер для CSV-файлов
• ASCII-файл с использованием полей
• RecCount в таблицах ASCII