浏览代码

* PChar -> PAnsiChar

Michael VAN CANNEYT 2 年之前
父节点
当前提交
34b5a3818f
共有 3 个文件被更改,包括 7 次插入1 次删除
  1. 1 1
      packages/fcl-css/tests/tccssparser.pp
  2. 3 0
      packages/fcl-css/tests/testcss.lpi
  3. 3 0
      packages/fcl-css/tests/testcss.lpr

+ 1 - 1
packages/fcl-css/tests/tccssparser.pp

@@ -155,7 +155,7 @@ end;
 procedure TTestCSSFilesParser.SetUp;
 begin
   inherited SetUp;
-  With TMemIniFile.Create(ChangeFileExt(Paramstr(0),'.ini')) do
+  With TMemIniFile.Create(ChangeFileExt(Paramstr(0),RTLString('.ini'))) do
     try
       TestDir:=ReadString('CSS','SourceDir','css');
     finally

+ 3 - 0
packages/fcl-css/tests/testcss.lpi

@@ -45,6 +45,9 @@
       <OtherUnitFiles Value="../src"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <Other>
+      <CustomOptions Value="-tunicodertl"/>
+    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions>

+ 3 - 0
packages/fcl-css/tests/testcss.lpr

@@ -3,6 +3,9 @@ program testcss;
 {$mode objfpc}{$H+}
 
 uses
+  {$IFDEF UNIX}
+  cwstring,
+  {$ENDIF}
   Classes, sysutils, consoletestrunner, tcCSSScanner, tcCSSParser, tcCSSTree,
   tcCSSResolver;