FPC 3.1.1

[SSerge]

Vadim

Код: Выделить всё

program ppppp;
{$mode objfpc}
{$codepage cp1251}
{$H+}

Var s:RawByteString;
    t:TextFile;
    s1:string;

begin
   AssignFile(t,'p.data');
   reset(t);
   readln(t,s);
   CloseFile(t);
   // здесь вывод будет в cp866
   s1:='Строка:';
   writeln('Codepage of s1:',StringCodePage(s1));
   writeln('codepage of  s:',StringCodePage(s));
   writeln(s1,s);
   // вот здесь вывод будет в 1251
   AssignFile(t,'con');
   rewrite(t);
   writeln(t,s1,s);
   closeFile(t);
end.



Добавлено спустя 50 минут 44 секунды:
Мда. Долго думал. Так и не понял, как к этому отнестись.
С одной стороны - подход правильный.
С другой стороны: нпример, файлы данных должны быть не в системной кодировке. И?
использовать грязные хаки типа прямой подмены кодовой страницы в строковых переменных?
где в таком случае, в RTL, наконец AssignFile с аргументами (filevar,filename,codepage)? А нет их.

[kazalex]

где в таком случае, в RTL, наконец AssignFile с аргументами (filevar,filename,codepage)? А нет их.

А назначение кодовой страницы (например так: TextRec(t).CodePage := cp_utf8) не поможет?

Добавлено спустя 15 минут 48 секунд:
Выяснилось, что правильнее использовать: procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);

[SSerge]

правильнее использовать: procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);

Да, действующий способ. Спасибо за наводку.

Однако:

Код: Выделить всё

   writeln('codePage of console:',GetTextCodePage(output));
   SetTextCodePage(output,0);
   writeln('codePage of console:',GetTextCodePage(output));


вот никогда не угадаешь, что получится. А получается:

codePage of console:866
codePage of console:1251

[kazalex]

вот никогда не угадаешь, что получится.

Ты же наверняка видел, что:

Код: Выделить всё

  CP_ACP     = 0;     // default to ANSI code page
  CP_OEMCP   = 1;     // default to OEM (console) code page


[Vadim]

SSerge
Если просто выводить на экран, то умолчальная перекодировка как в системе - дело правильное. А вот если текст на экран не выводится, а просто идёт конвейер обработки текста, что-то типа ls ./* | grep, то неправильное.
kazalex
Спасибо за подсказку. Что то я про SetTextCodePage() не подумал. Так кошерно.