浏览代码

* use sametext instead of converting case

Michaël Van Canneyt 5 月之前
父节点
当前提交
5130e82af0
共有 2 个文件被更改,包括 2 次插入2 次删除
  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;