Răsfoiți Sursa

* use sametext instead of converting case

Michaël Van Canneyt 3 luni în urmă
părinte
comite
22c91ec124
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 2 2
      tests/utils/gparmake.pp

+ 2 - 2
tests/utils/gparmake.pp

@@ -3,7 +3,7 @@
 Program GParMake;
 Program GParMake;
 
 
 Uses
 Uses
-  Classes;
+  SysUtils, Classes;
 
 
 procedure Usage;
 procedure Usage;
   begin
   begin
@@ -176,7 +176,7 @@ Function ProcessArgs: longint;
                   nexttestname:=''
                   nexttestname:=''
                 else
                 else
                   nexttestname:=filelist[i+1];
                   nexttestname:=filelist[i+1];
-                if lowercase(copy(testname,1,length(testname)-4))<>lowercase(copy(nexttestname,1,length(nexttestname)-4)) then
+                if not SameText(copy(testname,1,length(testname)-4),copy(nexttestname,1,length(nexttestname)-4)) then
                   FlushChunk;
                   FlushChunk;
               end;
               end;
           end;
           end;