浏览代码

* Fix forgotten PChar->PAnsiChar

Michaël Van Canneyt 2 年之前
父节点
当前提交
9a9a11ee5d
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-db/src/sqlite/customsqliteds.pas

+ 1 - 1
packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -329,7 +329,7 @@ begin
     Move(p^, Result^, BufLen);
 end;
 
-function StrBufNew(p: PChar; BufLen: Cardinal): PChar;
+function StrBufNew(p: PAnsiChar; BufLen: Cardinal): PAnsiChar;
 begin
   Result := nil;
   if (p = nil) or (p^ = #0) then