From 789224e558a54783dd989910839ec4bbd23fd9f8 Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Mon, 8 Sep 2008 11:54:19 +0000
Subject: [PATCH] LCL carbon: TSelectDirectoryDialog -  fixed range error

git-svn-id: trunk@16484 -
---
 lcl/interfaces/carbon/carbonproc.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonproc.pp b/lcl/interfaces/carbon/carbonproc.pp
index 91bb4414db..72a9504c9c 100644
--- a/lcl/interfaces/carbon/carbonproc.pp
+++ b/lcl/interfaces/carbon/carbonproc.pp
@@ -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;
 
 {------------------------------------------------------------------------------