소스 검색

* Use cwstring on non-windows

git-svn-id: trunk@41811 -
michael 6 년 전
부모
커밋
afa9ef279e
1개의 변경된 파일5개의 추가작업 그리고 0개의 파일을 삭제
  1. 5 0
      packages/fcl-registry/examples/testunicode.pp

+ 5 - 0
packages/fcl-registry/examples/testunicode.pp

@@ -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