fpcsrc/tests/webtbs/tw8580.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

program project3;

{$mode objfpc}{$H+}

type
  TUTF8Char = String[7];

var
  t: widestring;
  UTF8Char: TUTF8Char;

begin
  t := 'test';
  UTF8Char := TUTF8Char(T);
  writeln(UTF8Char);
end.