From cb3bffac522d4925281059c74b51208469bb85d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 14 Jan 2023 13:37:20 +0100
Subject: [PATCH] * PChar -> PAnsiChar

---
 packages/odbc/examples/testodbc.pp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/packages/odbc/examples/testodbc.pp b/packages/odbc/examples/testodbc.pp
index 99edb8062e..ac59c69513 100644
--- a/packages/odbc/examples/testodbc.pp
+++ b/packages/odbc/examples/testodbc.pp
@@ -4,16 +4,16 @@ uses odbcsql;
 
 
 Const
-  DBDSn : Pchar = 'FPC';
-  Empty : pchar = '';
-  Query : pchar = 'SELECT Id,Username,InstEmail from FPdev Order by UserName';
+  DBDSn : PAnsiChar = 'FPC';
+  Empty : PAnsiChar = '';
+  Query : PAnsiChar = 'SELECT Id,Username,InstEmail from FPdev Order by UserName';
 // Adapt to needs...
 {$ifdef linux}
-  UserName : pchar = 'michael';  // for mysql test.
-  Password : pchar = 'geen';
+  UserName : PAnsiChar = 'michael';  // for mysql test.
+  Password : PAnsiChar = 'geen';
 {$else}
-    UserName : pchar = ''; // for MS-Acces test.
-    Password : pchar = '';
+    UserName : PAnsiChar = ''; // for MS-Acces test.
+    Password : PAnsiChar = '';
 {$endif}
 
 Function ODBCSuccess (Res : Integer) : Boolean;
@@ -27,8 +27,8 @@ Var
   DBHandle   : SQLHandle;
   StmtHandle : SQLHSTMT;
   ResID      : Longint;
-  ResName    : Array[0..255] of char; // Matches length of field+1
-  ResEmail   : Array[0..255] of char;
+  ResName    : Array[0..255] of AnsiChar; // Matches length of field+1
+  ResEmail   : Array[0..255] of AnsiChar;
 
 Procedure FreeHandles;
 
@@ -108,7 +108,7 @@ begin
     begin
     Inc(Count);
     Write('Record: ',Count,' : ');
-    Writeln(ResId,' ',PChar(@ResName[0]),' ',Pchar(@ResEmail[0]));
+    Writeln(ResId,' ',PAnsiChar(@ResName[0]),' ',PAnsiChar(@ResEmail[0]));
     Res:=SQLFetch(StmtHandle);
     end;
 end;