mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 07:08:29 +02:00
28 lines
596 B
ObjectPascal
28 lines
596 B
ObjectPascal
program punicodechartest;
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
|
|
{$ifdef mswindows}{$apptype console}{$endif}
|
|
uses
|
|
{$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
|
|
sysutils;
|
|
var
|
|
astr: ansistring;
|
|
wstr: widestring;
|
|
ustr: unicodestring;
|
|
begin
|
|
astr:= '';
|
|
wstr:= '';
|
|
ustr:= '';
|
|
writeln(ptrint(pansichar(astr)));
|
|
flush(output);
|
|
writeln(ptrint(pwidechar(wstr)));
|
|
flush(output);
|
|
writeln(ptrint(punicodechar(ustr)));
|
|
flush(output);
|
|
writeln(ord(pansichar(astr)^));
|
|
flush(output);
|
|
writeln(ord(pwidechar(wstr)^));
|
|
flush(output);
|
|
writeln(ord(punicodechar(ustr)^));
|
|
flush(output);
|
|
end.
|