paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:09: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-16 10:29:26 +01:00
parent b3f8270ea6
commit 3fdbf1f1af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/json/fpjsondataset.pp
View File

@ -1188,7 +1188,7 @@ begin
if (length(W)>0) then if (length(W)>0) then
Move(W[1],Buffer^,Length(W)*SizeOf(Widechar)+1) Move(W[1],Buffer^,Length(W)*SizeOf(Widechar)+1)
else else
PChar(Buffer)^:=#0; PAnsiChar(Buffer)^:=#0;
end; end;
ftfixedchar, ftfixedchar,
ftString: ftString:
@ -1197,7 +1197,7 @@ begin
if (length(s)>0) then if (length(s)>0) then
Move(S[1],Buffer^,Length(S)+1) Move(S[1],Buffer^,Length(S)+1)
else else
PChar(Buffer)^:=#0; PAnsiChar(Buffer)^:=#0;
end; end;
ftBoolean: ftBoolean:
begin begin