tests/test/tutf82.pp


1
2
3
4
5
6
7
8
9
10
11

{$codepage utf8}
var
  w : widestring;
begin
  w:='äüö';
  if (ord(w[1])<>$e4) or
    (ord(w[2])<>$fc) or
    (ord(w[3])<>$f6) then
    halt(1);
  writeln('ok');
end.