* PChar -> PAnsiChar

packages/pxlib/examples/ppxview.pp

@@ -9,7 +9,7 @@ procedure DumpInfo (Doc : PPX_Doc);
 
 Var
   I : Integer;
-  S : String;
+  S : AnsiString;
   pxf : Ppxfield_t;
   
 begin
@@ -20,7 +20,7 @@ begin
     Write('Field ',I:3,': ',strpas(pxf^.px_fname):18,' : ');
     S:='';
     Case (pxf^.px_ftype) of
-      pxfAlpha:    S:=Format('char(%d)',[pxf^.px_flen]);
+      pxfAlpha:    S:=Format('AnsiChar(%d)',[pxf^.px_flen]);
       pxfDate:     S:=Format('date(%d)',[pxf^.px_flen]);
       pxfShort:    S:=Format('int(%d)',[pxf^.px_flen]);
       pxfLong:     S:=Format('int(%d)',[pxf^.px_flen]);
@@ -51,13 +51,13 @@ Procedure DumpRecords(Doc : PPX_Doc);
 var
   I,J,K,flen : Integer;
   pxf : Ppxfield_t;
-  s : string;          
-  buf, fbuf,value : Pchar;
+  s : AnsiString;
+  buf, fbuf,value : PAnsiChar;
   longv : clong;
   y,m,d : cint;
   si: shortint;
   R : Double;
-  c : char;
+  c : AnsiChar;
   
 begin
   I:=0;
@@ -164,7 +164,7 @@ end;
 
 Var
   Doc : PPX_Doc;
-  FN,BFN : String;
+  FN,BFN : AnsiString;
 
 begin
   LoadPXlib(pxlibraryname);
@@ -174,10 +174,10 @@ begin
     Try
       FN:=ParamStr(1);
       BFN:=ChangeFileExt(FN,'.mb');
-      px_open_file(Doc,Pchar(FN));
+      px_open_file(Doc,PAnsiChar(FN));
       try
         if FileExists(BFN) then
-          PX_set_blob_file(Doc,PChar(BFN));
+          PX_set_blob_file(Doc,PAnsiChar(BFN));
         DumpInfo(Doc);
         DumpRecords(Doc);
       Finally  
@@ -189,4 +189,4 @@ begin
   finally
     PX_Shutdown;
   end;
-end.
+end.

packages/pxlib/src/pxlib.pp

@@ -84,7 +84,7 @@ Type
   PWord     = ^Word;
   PDWord    = ^DWord;
   PDouble   = ^Double;
-  Pcchar    = pchar;
+  Pcchar    = PAnsiChar;
 
 {$ifndef unix}
   size_t    = Integer;
@@ -491,7 +491,7 @@ Procedure Loadpxlib(lib : String);
 
 begin
   Freepxlib;
-  hlib:=LoadLibrary(Pchar(lib));
+  hlib:=LoadLibrary(PAnsiChar(lib));
   if hlib=0 then
     raise Exception.Create(format('Could not load library: %s',[lib]));
   pointer(PX_get_majorversion):=GetProcAddress(hlib,'PX_get_majorversion');