[VB6]Array of array

[Verwijderd]

Ik heb het volgende probleem.
Ik heb een functie die een array teruggeeft. Dit werkt prima.
Ik wil de functie meerdere keren achter elkaar aanroepen. Nu leek het mij handiger om dan ook van de returnvalue een array te maken. Het wordt dan een array van arrays.
Nu kom ik daar dus niet helemaal uit.
Hoe dim ik zo'n array en hoe benader ik het later.

Eerst maar een stukje code om het te verduidelijken:

code:

Dim arr() as double

  'getData geeft een array van doubles terug:
  arr = getData("A")

  testvalue = arr(4)

Nu wil ik meerdere keren opvragen:

code:

Dim arr1() as double
Dim arr2() as double
Dim arr3() as double
Dim arr4() as double

  'getData geeft een array van doubles terug:
  arr1 = getData("A")
  arr2 = getData("B")
  arr3 = getData("C")
  arr4 = getData("D")

  testvalue1 = arr1(4)
  testvalue2 = arr2(5)
  enz.

Nu wil ik het eigenlijk zo:

code:

'Hoe declareer ik een array van arrays?
Dim arr()() as double 

  'getData geeft een array van doubles terug:
  arr(0) = getData("A")
  arr(1) = getData("B")
  arr(2) = getData("D")

  'Hoe vraag ik nu dan een waarde op:
  testvalue = arr(0)(4)

[RobIII]

code:

Dim arr(2,10) as double

Dit geeft je een array van 3 x 11 doubles... (mits option base 0, voor de mierencopulators)
En anders maak je een array van het type variant, daar kun je zo'n beetje alles in kwijt

[ Voor 27% gewijzigd door RobIII op 12-01-2005 17:13 ]

[Verwijderd]

RobIII schreef op woensdag 12 januari 2005 @ 17:12:

code:

Dim arr(2,10) as double

Dit geeft je een array van 3 x 11 doubles... (mits option base 0, voor de mierencopulators)
En anders maak je een array van het type variant, daar kun je zo'n beetje alles in kwijt

Op deze manier heb je niet 3 dynamische arrays..
volgens mij was het

code:

Dim arr(2) as Variant

'of zo kan het ook:
type double_array
  arr() as double
end type

dim arr(2) as double_array

edit:

anders lees ik ff goed.. Variant ding had RobIII al vermeld

[ Voor 8% gewijzigd door Verwijderd op 12-01-2005 22:23 ]

[Verwijderd]

Het gaat inderdaad om dynamische arrays waar ik deels niet van weet hoe groot ze worden.

De functie getData regelt de grootte.

Ik heb het nu anders opgelost. Ik weet niet of het wel netjes is, dan hoor ik het graag.

code:

Dim arr() As Double
Dim arr2() As String
Dim arrOfArrays() As Variant

    For i = 1 To 5
      arr = getData(arr2(i))
      arrOfArrays(i) = arr()
    Next i
    'Loop nu door de data heen
    arr = arrOfArrays(1)
    For x = LBound(arr) To UBound(arr)
       'Hier doe ik mijn ding met de data,
       'Daar heb ik ook nog een vraag (Evaluate()) over 
       'maar dat die ik wel in een
       'andere post.
    Next x

Dit werkt zoals ik het hebben wil.
Verbeteringen zijn altijd welkom.

[RobIII]

Verwijderd schreef op donderdag 13 januari 2005 @ 09:47:

Bekijk anders ReDim eens (zie Helpfile)...

[Stiegl]

Volgens mij is dit wat je zoekt:

code:

    Dim arr1 As Variant
    Dim arr2() As String
    Dim arr3() As String
    
    ReDim arr2(3)
    ReDim arr3(3)
    
    arr1 = Array(arr2, arr3)
    
    arr1(0)(0) = "Hello world"

[ Voor 4% gewijzigd door Stiegl op 13-01-2005 10:26 ]

[Verwijderd]

@ The Cheese:

Inderdaad dat is wat ik zoek.
Het lijkt wel wat op de manier zoals ik het had opgelost.
Zit er qua performance en geheugen gebruik nog veel verschil in?

In ieder geval bedankt. Ik ga mijn code zeker aanpassen.

[Stiegl]

Performance verlies zal wel meevallen, tenzij je het 100x per seconde wil aanroepen of op een 386 draait .