Domino 9 und frühere Versionen > ND9: Entwicklung

Übergabe Array an Function

<< < (2/2)

Gutierrez:
Moin,

ich verstehe. Dann würde ich das alles in einem Objekt kapseln, wenn es so nicht funktioniert.



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

Class SimpleClass

Public v As Variant

End Class

Sub Initialize

Dim r As SimpleClass
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim t As Variant

Set r = Func_a
For i = 0 To Ubound(r.v)
For j = 0 To Ubound(r.v, i+1)
If Isarray(r.v(i, j)) Then
t = r.v(i, j)
For k = 0 To Ubound(t)
Print t(k)
Next
Else
Print r.v(i, j)
End If
Next
Next

End Sub

Function Func_a() As SimpleClass

Dim cObj As New SimpleClass

Dim a As Variant
Redim a(3)
a(0) = "1"
a(1) = "11"
a(2) = "12"
a(3) = "13"

Redim cObj.v(1, 1)

cObj.v(0, 0) = "0/0"
cObj.v(0, 1) = a
cObj.v(1, 0) = "1/0"
cObj.v(1, 1) = a


Set Func_a = cObj


End Function

--- Ende Code ---


Beste Grüße,
Gutierrez

skywook:
Super, funktioniert.

Übergebe jetzt ein Objekt. Aber jetzt habe ich noch ein Problem.

Wie funktioniert dann der arrayGetIndex wenn ich in dem Array z.B. nach "1/0" suchen möchte?

if isnull( arrayGetIndex( r.v, "1/0) ) then

funktioniert ja nicht.

jBubbleBoy:
deshalb?
https://www-01.ibm.com/support/docview.wss?uid=swg21456399

schreib dir eine Funktion die das behandelt, am besten gleich in der "SimpleClass"

skywook:
Perfekt. Vielen Dank.

Noch eine Frage, die Suche hat nichts gebracht ..

Wenn ich den den Array (aus dem Objekt) wieder in einem "normalen" Array umwandeln möchte, muss ich den durchlaufen und zuordnen oder gibts hierfür einen einfachen convert-Befehl?

So auf die Art:

dim nArray as Variant
nArray = xxxx(r.v)

jBubbleBoy:
einer Variable vom Typ Variant kannst du es zuweisen, bei einer Variable vom Typ Array geht das nicht

Navigation

[0] Themen-Index

[*] Vorherige Sete