Код: Выделить всё
{$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. Если использовать директиву компилятора — тоже все в вопросиках.
