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

Delphi , Базы данных , ASCII и CSV

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;

Here's the translation of the text into Russian:

Функция ConvertTo852 конвертирует строку из кодовой страницы Paradox в кодовую страницу 852. Функция использует оператор case для маппинга конкретных символов из кодовой страницы Paradox в их эквивалентные значения в кодовой странице 852.

Описание кода:

1. Функция ConvertTo852 принимает строку S в качестве входного параметра и возвращает новую строку с конвертированными символами.
2. Переменная A является целым числом, которое служит счетчиком цикла, повторяющимся от 1 до длины входной строки S.
3. Переменная Ch является символом, который будет хранить маппированное значение для каждого символа в входной строке.
4. Процедура setlength устанавливает длину результата в ту же длину, что и входная строка.
5. Цикл for повторяется над каждым символом в входной строке, используя переменную A как индекс.
6. Внутри цикла используется оператор case для маппинга конкретных символов из кодовой страницы Paradox в их эквивалентные значения в кодовой странице 852. Например, '' маппится на '<852code>'.
7. Если символ в входной строке не соответствует ни одному из указанных случаев, он присваивается напрямую переменной Ch.
8. Наконец, присваивание Result[A] устанавливает соответствующий символ в результатающей строке в маппированное значение Ch.

function ConvertTo852(S: string): string;
var
  Map: TDictionary<Char, Char>;
  ResultString: TStringBuilder;
begin
  Map := TDictionary<Char, Char>.Create;
   // Добавьте маппинги из кодовой страницы Paradox в кодовую страницу 852
  Map.Add('<code>', '<852code>');
  Map.Add('<code2>', '<852code2>');
   // ...

  ResultString := TStringBuilder.Create();
  for A := 1 to Length(S) do
  begin
    Ch := S[A];
    if Map.ContainsKey(Ch) then
      ResultString.Append(Map[Ch])
    else
      ResultString.Append(Ch);
  end;
  Result := ResultString.ToString();
end;