paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove UpChars array from FileUtil replacing them with string comparing functions usage

Browse Source 
git-svn-id: trunk@27221 -
This commit is contained in:
dmitry 2010-08-28 14:17:24 +00:00
parent c1467eddea
commit 92059229cd
2 changed files with 10 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/fileutil.pas
View File

@ -235,22 +235,7 @@ uses
Unix, BaseUnix;
{$ENDIF}
var
UpChars: array[char] of char;
{$I fileutil.inc}
procedure InternalInit;
var
c: char;
begin
for c:=Low(char) to High(char) do begin
UpChars[c]:=upcase(c);
end;
end;
initialization
InternalInit;
end.

47
lcl/include/fileutil.inc
View File

@ -670,8 +670,8 @@ end;
function CompareFileExt(const Filename, Ext: string;
CaseSensitive: boolean): integer;
var
n, e : AnsiString;
FileLen, FilePos, ExtLen, ExtPos: integer;
FileChar, ExtChar: char;
begin
FileLen:=length(Filename);
ExtLen:=length(Ext);
@ -686,43 +686,16 @@ begin
inc(FilePos);
ExtPos:=1;
if (ExtPos<=ExtLen) and (Ext[1]='.') then inc(ExtPos);
// compare extensions
while true do begin
if FilePos<=FileLen then begin
if ExtPos<=ExtLen then begin
FileChar:=Filename[FilePos];
ExtChar:=Ext[ExtPos];
if not CaseSensitive then begin
FileChar:=UpChars[FileChar];
ExtChar:=UpChars[ExtChar];
end;
if FileChar=ExtChar then begin
inc(FilePos);
inc(ExtPos);
end else if FileChar>ExtChar then begin
Result:=1;
exit;
end else begin
Result:=-1;
exit;
end;
end else begin
// fileext longer than ext
Result:=1;
exit;
end;
end else begin
if ExtPos<=ExtLen then begin
// fileext shorter than ext
Result:=-1;
exit;
end else begin
// equal
Result:=0;
exit;
end;
end;
end;
n:=Copy(Filename, FilePos, length(FileName));
e:=Copy(Ext, ExtPos, length(Ext));
if CaseSensitive then
Result:=CompareStr(n, e)
else
Result:=AnsiCompareText(n, e);
if Result<0 then Result:=1
else if Result>0 then Result:=1;
end;
function CompareFileExt(const Filename, Ext: string): integer;