paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 10:10:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 13:37:20 +01:00 committed by Pierre Muller
parent bf8c649941
commit cb3bffac52
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/odbc/examples/testodbc.pp
View File

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