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

Fix compilation of dbconfig program

Browse Source 
git-svn-id: trunk@39181 -
This commit is contained in:
pierre 2018-06-05 22:10:20 +00:00
parent 5f62a2063c
commit be91b22d0f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/utils/dbconfig.pp
View File

@ -539,8 +539,8 @@ end;
Procedure InsertRunsIntoConfigAndHistory(var GlobalRes : TSQLQuery); Procedure InsertRunsIntoConfigAndHistory(var GlobalRes : TSQLQuery);
var var
i,fid, num_fields : Integer; i,fid,num_fields,row_count : Integer;
Row : PPchar; Row : Variant;
s : string; s : string;
runid,previd : Integer; runid,previd : Integer;
begin begin
@ -548,11 +548,14 @@ begin
begin begin
num_fields:=FieldCount; num_fields:=FieldCount;
First; First;
Last; { be sure to read all }
row_count:=RecordCount;
Writeln('Row count=',row_count); Writeln('Row count=',row_count);
First;
for i:=0 to row_count-1 do for i:=0 to row_count-1 do
begin begin
row:=mysql_fetch_row(GlobalRes); row:=FieldValues['TR_ID'];
runid:=StrToIntDef(strpas(Row[0]),-1); runid:=StrToIntDef(Row,-1);
previd:=GetTestPreviousRunHistoryID(RunID); previd:=GetTestPreviousRunHistoryID(RunID);
if previd>=0 then if previd>=0 then
begin begin
@ -568,6 +571,7 @@ begin
else else
UpdateTestConfigID(RunID); UpdateTestConfigID(RunID);
end; end;
Next;
end; end;
end; end;
end; end;