- Код: Выделить всё
{$mode objfpc}{$h+}
program TestUTF;
var
a : ansistring;
f : utf8string;
w : widestring;
u : unicodestring;
begin
WriteLn('Текст');
a := 'Другой';
WriteLn(a);
f := 'Третий';
WriteLn(f);
w := 'Снова';
WriteLn(w);
u := 'И ещё';
WriteLn(u);
end.
Компилирую
- Код: Выделить всё
fpc testutf.pp
запускаю, все ок:
- Код: Выделить всё
Текст
Другой
Третий
Снова
И ещё
Компилирую с указанием кодировки исходника:
- Код: Выделить всё
fpc -FcUTF8 testutf.pp
Запускаю и получаю вопросики:
- Код: Выделить всё
?????
??????
??????
?????
? ???
Где собака порылась?
Добавлено спустя 1 минуту 7 секунд:
PS. Если использовать директиву компилятора — тоже все в вопросиках.