From 63e7f4feb6726581e9d04c98477c7c6c37b30f5d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Fri, 13 Jan 2023 22:24:23 +0100 Subject: [PATCH] * PChar -> PAnsichar --- packages/openal/examples/captureplaybackopenal.pas | 6 +++--- packages/openal/examples/wavopenal.pas | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/packages/openal/examples/captureplaybackopenal.pas b/packages/openal/examples/captureplaybackopenal.pas index 15352e1418..ff69e2191a 100644 --- a/packages/openal/examples/captureplaybackopenal.pas +++ b/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'); diff --git a/packages/openal/examples/wavopenal.pas b/packages/openal/examples/wavopenal.pas index 719a1d8e69..d4e970bf02 100644 --- a/packages/openal/examples/wavopenal.pas +++ b/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;