paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: making file filter more robust for invalid data

Browse Source 
git-svn-id: trunk@58733 -
This commit is contained in:
dmitry 2018-08-17 00:29:07 +00:00
parent 16334b0b94
commit fa4c81aa42
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawsdialogs.pp
View File

@ -564,7 +564,7 @@ begin
lFilterParser := TParseStringList.Create(AFileDialog.Filter, '|'); lFilterParser := TParseStringList.Create(AFileDialog.Filter, '|');
try try
lFilterCounter := 0; lFilterCounter := 0;
while lFilterCounter < lFilterParser.Count do while lFilterCounter < lFilterParser.Count - 1 do
begin begin
lFilterName := lFilterParser[lFilterCounter]; lFilterName := lFilterParser[lFilterCounter];
filterext := lFilterParser[lFilterCounter+1]; filterext := lFilterParser[lFilterCounter+1];