* PChar -> PAnsichar

packages/openal/examples/captureplaybackopenal.pas

@@ -25,11 +25,11 @@ var
 begin
 
   //- Find out which extensions are supported and print them (could error check for capture extension here)
-  writeln('OpenAL Extensions = ',PChar(alGetString(AL_EXTENSIONS)));
+  writeln('OpenAL Extensions = ',PAnsiChar(alGetString(AL_EXTENSIONS)));
 
   //- Print device specifiers for default devices
-  writeln('ALC_DEFAULT_DEVICE_SPECIFIER = ',PChar(alcGetString(nil, ALC_DEFAULT_DEVICE_SPECIFIER )));
-  writeln('ALC_CAPTURE_DEVICE_SPECIFIER = ',PChar(alcGetString(nil, ALC_CAPTURE_DEVICE_SPECIFIER )));
+  writeln('ALC_DEFAULT_DEVICE_SPECIFIER = ',PAnsiChar(alcGetString(nil, ALC_DEFAULT_DEVICE_SPECIFIER )));
+  writeln('ALC_CAPTURE_DEVICE_SPECIFIER = ',PAnsiChar(alcGetString(nil, ALC_CAPTURE_DEVICE_SPECIFIER )));
 
   //- Setup the input capture device (default device)
   writeln('Setting up alcCaptureOpenDevice to use default device');

packages/openal/examples/wavopenal.pas

@@ -37,13 +37,13 @@ uses
   
 type
   TRiffHeader = packed record
-    ID      : array [0..3] of char;
+    ID      : array [0..3] of AnsiChar;
     Size    : LongWord;
-    Format  : array [0..3] of char;
+    Format  : array [0..3] of AnsiChar;
   end;
 
   TWaveFormat = packed record
-    ID            : array [0..3] of char;
+    ID            : array [0..3] of AnsiChar;
     Size          : LongWord;
     Format        : Word;
     Channels      : Word;
@@ -54,7 +54,7 @@ type
   end;
 
   TDataChunk = packed record
-    Id      : array [0..3] of char;
+    Id      : array [0..3] of AnsiChar;
     Size    : LongWord;
   end;