paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Don’t crash on empty path.

Browse Source
This commit is contained in:
Rika Ichinose 2024-08-17 19:01:40 +03:00
parent 07f9113a7c
commit 88ca756f19
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/vcl-compat/src/system.ioutils.pp
View File

@ -962,6 +962,8 @@ begin
Result := ''; Result := '';
for Path in Paths do for Path in Paths do
begin begin
if Path = '' then
continue;
if ValidateParams and not TPath.HasValidPathChars(Path, False) then if ValidateParams and not TPath.HasValidPathChars(Path, False) then
Raise EInOutArgumentException.CreateFmt(SErrInvalidCharsInPath,[Path],Path); Raise EInOutArgumentException.CreateFmt(SErrInvalidCharsInPath,[Path],Path);
{$ifdef mswindows} {$ifdef mswindows}