paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 17:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Dialogs: fix compliation with fpc < 3.2.2 after commit #70688d5a (2nd try)

Browse Source
This commit is contained in:
Bart 2023-01-14 00:25:55 +01:00
parent 76c9b140ac
commit 3a944f112d
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/include/filedialog.inc
View File

@ -302,7 +302,7 @@ var
i: Integer; i: Integer;
begin begin
Result := nil; Result := nil;
Arr := Filter.Split('|',TstringSplitOptions.ExcludeLastEmpty); Arr := Filter.Split('|'{$if fpc_fullversion >= 30202}, TStringSplitOptions.ExcludeLastEmpty{$endif});
SetLength(Result, Length(Arr) div 2); SetLength(Result, Length(Arr) div 2);
for i := Low(Arr) to High(Arr) do for i := Low(Arr) to High(Arr) do
begin begin