mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 11:09:39 +02:00
17 lines
191 B
ObjectPascal
17 lines
191 B
ObjectPascal
program project3;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TUTF8Char = String[7];
|
|
|
|
var
|
|
t: widestring;
|
|
UTF8Char: TUTF8Char;
|
|
|
|
begin
|
|
t := 'test';
|
|
UTF8Char := TUTF8Char(T);
|
|
writeln(UTF8Char);
|
|
end.
|