mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Range check error

Browse source 
(cherry picked from commit 4aaa48f26e)
This commit is contained in:
Alexander Koblov 2022-06-12 15:22:52 +03:00
commit 012607073e
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
components/doublecmd/dcstrutils.pas
View file

@ -835,20 +835,24 @@ end;
function ApplyRenameMask(aFileName: String; NameMask: String; ExtMask: String): String;
function ApplyMask(const TargetString: String; Mask: String): String;
function ApplyMask(const TargetString, Mask: String): String;
var
i:Integer;
I: Integer;
begin
Result:='';
for i:=1 to Length(Mask) do
begin
if Mask[i]= '?' then
Result:=Result + TargetString[i]
else
if Mask[i]= '*' then
Result:=Result + Copy(TargetString, i, Length(TargetString) - i + 1)
else
Result:=Result + Mask[i];
if (Length(TargetString) < Length(Mask)) then
Result:= TargetString
else begin
Result:= String.Empty;
for I:= 1 to Length(Mask) do
begin
if Mask[I] = '?' then
Result:=Result + TargetString[I]
else
if Mask[I] = '*' then
Result:= Result + Copy(TargetString, I, Length(TargetString) - I + 1)
else
Result:= Result + Mask[I];
end;
end;
end;