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

db xmldatapacketreader: don't use PChar in InitLoadRecords

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-05-03 18:34:05 +02:00 committed by Michael Van Canneyt
parent bcdb68a8c4
commit b28adbad5f
1 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/fcl-db/src/base/xmldatapacketreader.pp
View File

@ -306,8 +306,7 @@ end;
procedure TXMLDatapacketReader.InitLoadRecords;
var ChangeLogStr : String;
C, StartC : PChar;
cp : integer;
I, StartI, cp: integer;
ps : string;
begin
@ -320,17 +319,13 @@ begin
ChangeLogStr:='';
ps := '';
cp := 0;
if ChangeLogStr='' then
Exit;
C := PChar(ChangeLogStr);
StartC := C;
repeat
if (C^ in [' ',#0]) then
StartI := 1;
if ChangeLogStr<>'' then
for I := 1 to Length(ChangeLogStr)+1 do
begin
if (I>Length(ChangeLogStr)) or (ChangeLogStr[I] in [' ',#0]) then
begin
SetLength(ps, C-StartC);
if Length(ps)>0 then
Move(StartC^, ps[1], C-StartC);
ps := Copy(ChangeLogStr, StartI, I-StartI);
case (cp mod 3) of
0 : begin
SetLength(FChangeLog,length(FChangeLog)+1);
@ -347,10 +342,9 @@ begin
end;
end; {case}
inc(cp);
StartC := C+1;
StartI := I+1;
end;
Inc(C);
until C^=#0;
end;
end;
procedure TXMLDatapacketReader.RestoreRecord;