Fix range problems

git-svn-id: trunk@38703 -

tests/utils/testsuite/utests.pp

@@ -1482,7 +1482,7 @@ begin
           Open;
           while not EOF do
             Next;
-          RecNo:=0;
+          RecNo:=1;
 
           DumpLn(Format('<p>Record count: %d </p>',[Q.RecordCount]));
           Try
@@ -1981,9 +1981,9 @@ begin
       if FRunID<>'' then
         S:=S+' AND (TR_TESTRUN_FK='+FRunID+')';
       If FOnlyFailed then
-        S:=S+' AND (TR_OK="-")';
+        S:=S+' AND (NOT TR_OK)';
       If FNoSkipped then
-        S:=S+' AND (TR_SKIP="-")';
+        S:=S+' AND (NOT TR_SKIP)';
       If FCond<>'' then
         S:=S+' AND ('+FCond+')';
 
@@ -2091,7 +2091,7 @@ begin
 
           DumpLn(Format('<p>Record count: %d </p>',[Q.RecordCount]));
           if RecordCount>0 then
-            RecNo:=0;
+            RecNo:=1;
 
           Try
            { if FDebug then
@@ -2115,7 +2115,7 @@ begin
           version_ind:=FieldByName('TV_ID').Index;
           date_ind:=FieldByName('Date').Index;
           run_ind:=FieldByName('TU_ID').Index;
-          For i:=0 to Q.RecordCount-1 do
+          For i:=1 to Q.RecordCount do
             begin
               Q.RecNo:=i;
               inc(total_count);
@@ -2285,7 +2285,7 @@ begin
                 CellEnd;
                 if assigned(cpu_count) then
                   begin
-                    for i:=0 to cpu_last do
+                    for i:=1 to cpu_last do
                       if cpu_count^[i,TS]>0 then
                         begin
                           RowNext;
@@ -2309,7 +2309,7 @@ begin
                   end;
                 if assigned(os_count) then
                   begin
-                    for i:=0 to os_last do
+                    for i:=1 to os_last do
                       if os_count^[i,TS]>0 then
                         begin
                           RowNext;
@@ -2336,7 +2336,7 @@ begin
 
                 if assigned(version_count) then
                   begin
-                    for i:=0 to version_last do
+                    for i:=1 to version_last do
                       if version_count^[i,TS]>0 then
                         begin
                           RowNext;
@@ -2365,7 +2365,7 @@ begin
           if total_count>0 then
             begin
               TableEnd;
-              RecNo:=0;
+              RecNo:=1;
             end;
           If FDebug or FListAll then
            begin