Procházet zdrojové kódy

* PChar -> PAnsiChar

Michaël Van Canneyt před 2 roky
rodič
revize
5e9c294eda

+ 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;