Răsfoiți Sursa

* use sametext instead of converting case

Michaël Van Canneyt 5 luni în urmă
părinte
comite
5130e82af0
2 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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;
   end;
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
     '.jar');
     '.jar');
-  if lowercase(tmp)=lowercase(params.InputFiles[0]) then
+  if sametext(tmp,params.InputFiles[0]) then
     tmp:=tmp+'.jar';
     tmp:=tmp+'.jar';
   params.OutputFile:=tmp;
   params.OutputFile:=tmp;
 end;
 end;

+ 1 - 1
utils/fpcres/fpcres.pas

@@ -161,7 +161,7 @@ begin
   end;
   end;
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
   tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
     ObjFormats[CurrentTarget.objformat].ext);
     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;
     tmp:=tmp+ObjFormats[CurrentTarget.objformat].ext;
   params.OutputFile:=tmp;
   params.OutputFile:=tmp;
 end;
 end;