소스 검색

* 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;