From a3e74d91e62db3922d603b72adc03b818d4f357d Mon Sep 17 00:00:00 2001 From: Rüdiger Timm Date: Mon, 7 Jul 2008 11:08:30 +0000 Subject: INTEGRATION: CWS ab53 (1.28.4); FILE MERGED 2008/06/25 15:58:53 ab 1.28.4.1: #i90796# Fixed ArrayoutofString function --- wizards/source/tools/Strings.xba | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'wizards/source') diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index e6cf77b37074..a2a8907e02f2 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -112,13 +112,8 @@ End Function Function ArrayOutOfString(BigString, Separator as String, Optional MaxIndex as Integer) Dim LocList() as String LocList=Split(BigString,Separator) -' The following line has no effect because it seems that Optional variables are -' always passed as ByValue variables. But MaxIndex must remain in the function for -' compatibility reasons -' The user of the function can always use ubund on the return value to get the -' highest index of the array. -' If not isMissing(MaxIndex) then maxIndex=ubound(LocList()) + If not isMissing(MaxIndex) then maxIndex=ubound(LocList()) ArrayOutOfString=LocList End Function -- cgit v1.2.3