* PChar -> PAnsiChar

This commit is contained in:
Michaël Van Canneyt 2023-01-14 17:57:03 +01:00
parent 39c29ffae2
commit 5e9c294eda
3 changed files with 7 additions and 1 deletions

View File

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

View File

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

View File

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