Explorar o código

* use sametext instead of converting case

Michaël Van Canneyt hai 5 meses
pai
achega
5130e82af0
Modificáronse 2 ficheiros con 2 adicións e 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;