fix possible AV when scanning asteriskified path

This commit is contained in:
Basile Burg 2014-11-07 04:46:56 +01:00
parent c54ec43fbc
commit c211a921a6
1 changed files with 4 additions and 0 deletions

View File

@ -578,6 +578,10 @@ var
pth, ext, fname: string;
files: TStringList;
begin
result := false;
if aPath = '' then
exit;
//
if aPath[length(aPath)] = '*' then
begin
pth := aPath[1..length(aPath)-1];