Explorar el Código

* use sametext instead of converting case

Michaël Van Canneyt hace 5 meses
padre
commit
5130e82af0
Se han modificado 2 ficheros con 2 adiciones y 2 borrados
  1. 1 1
      utils/fpcres/fpcjres.pas
  2. 1 1
      utils/fpcres/fpcres.pas

+ 1 - 1
utils/fpcres/fpcjres.pas

@@ -116,7 +116,7 @@ begin
   end;
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
     '.jar');
-  if lowercase(tmp)=lowercase(params.InputFiles[0]) then
+  if sametext(tmp,params.InputFiles[0]) then
     tmp:=tmp+'.jar';
   params.OutputFile:=tmp;
 end;

+ 1 - 1
utils/fpcres/fpcres.pas

@@ -161,7 +161,7 @@ begin
   end;
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
     ObjFormats[CurrentTarget.objformat].ext);
-  if lowercase(tmp)=lowercase(params.InputFiles[0]) then
+  if SameText(tmp,params.InputFiles[0]) then
     tmp:=tmp+ObjFormats[CurrentTarget.objformat].ext;
   params.OutputFile:=tmp;
 end;