Domino 9 und frühere Versionen > ND9: Entwicklung

Übergabe Array an Function

(1/2) > >>

skywook:
Hallo,

ich möchte ein zweidimensionalen Array einer Function übergeben. Funktioniert das nicht? Bei einem eindimensionalen Array klappt es.

Die Function ist als Variant deklariert:

Function Ablauf(xx as string) as variant

Dim ar as variant
redim ar(10,3)
........

und die Übergabe sieht so aus
ablauf = a

Gutierrez:
Moin,


--- Code: ---ablauf = a

--- Ende Code ---

das wäre ja falsch. Wenn, dann


--- Code: ---ablauf = ar

--- Ende Code ---

Hast du evtl. Tippfehler? Option Declare benutzt?

Beste Grüße
Gutierrez

skywook:
Sorry, meinte natürlich

ablauf = ar

Gutierrez:
Moin,

aber das funktioniert doch so, wie du es beschreibst?!


--- Code: ---Option Public
Option Declare

Sub Initialize


Dim r As Variant
Dim i As Integer
Dim j As Integer

r = Func_a
For i = 0 To Ubound(r)
For j = 0 To Ubound(r, i+1)
Print r(i, j)
Next
Next

End Sub

Function Func_a() As Variant


Redim v(1, 1)

v(0, 0) = "0/0"
v(0, 1) = "0/1"
v(1, 0) = "1/0"
v(1, 1) = "1/1"


Func_a = v

End Function

--- Ende Code ---

Beste Grüße
Gutierrez

skywook:
In der zweiten Dimension ist ein Array enthalten.
Bei der Übergabe zur Function kommt die Fehlermeldung: Type mismatch

Function Func_a() As Variant
   
   Dim a As Variant
   Redim a(3)
   a(0) = "1"
   a(1) = "11"
   a(2) = "12"
   a(3) = "13"
   
   Redim v(1, 1)
   
   v(0, 0) = "0/0"
   v(0, 1) = a
   v(1, 0) = "1/0"
   v(1, 1) = a
   
   ###### Hier kommt der Fehler #########
   Func_a = v
   
End Function

Navigation

[0] Themen-Index

[#] Nächste Seite