paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 13:31:40 +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);
var
i,fid, num_fields : Integer;
Row : PPchar;
i,fid,num_fields,row_count : Integer;
Row : Variant;
s : string;
runid,previd : Integer;
begin
@ -548,11 +548,14 @@ begin
begin
num_fields:=FieldCount;
First;
Last; { be sure to read all }
row_count:=RecordCount;
Writeln('Row count=',row_count);
First;
for i:=0 to row_count-1 do
begin
row:=mysql_fetch_row(GlobalRes);
runid:=StrToIntDef(strpas(Row[0]),-1);
row:=FieldValues['TR_ID'];
runid:=StrToIntDef(Row,-1);
previd:=GetTestPreviousRunHistoryID(RunID);
if previd>=0 then
begin
@ -568,6 +571,7 @@ begin
else
UpdateTestConfigID(RunID);
end;
Next;
end;
end;
end;