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

LCL carbon: TSelectDirectoryDialog - fixed range error

Browse Source 
git-svn-id: trunk@16484 -
This commit is contained in:
tombo 2008-09-08 11:54:19 +00:00
parent 05e22097a0
commit 789224e558
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbonproc.pp
View File

@ -695,10 +695,13 @@ var
I: Integer;
begin
SetLength(StrArray, S.Count);
for I := 0 to S.Count - 1 do CreateCFString(S[I], StrArray[I]);
Result := CFArrayCreate(nil, @StrArray[0], Length(StrArray), nil);
if S.Count > 0 then
Result := CFArrayCreate(nil, @StrArray[0], Length(StrArray), nil)
else
Result := CFArrayCreate(nil, nil, 0, nil);
end;
{------------------------------------------------------------------------------