paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use cwstring on non-windows

Browse Source 
git-svn-id: trunk@41811 -
This commit is contained in:
michael 2019-04-01 16:51:05 +00:00
parent 17aa8da99f
commit afa9ef279e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-registry/examples/testunicode.pp
View File

@ -1,11 +1,16 @@
program testunicode;
{ Unicode test program using UTF8String }
{$mode objfpc}{$H+}
{$codepage utf8}
{$IFNDEF UNIX}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
{$ifdef unix}
cwstring,
{$endif}
sysutils, classes, registry;
Var