Avatar billede christian_h Nybegynder
10. april 2005 - 12:10 Der er 9 kommentarer og
1 løsning

Dynamisk redim

Hejsa.

Hvordan får jeg dette array til at være dynamisk med hensyn til størrelsen.

ReDim fileData(8195) As fData

Det er de 8195 jeg skal have til at være dynamiske, da jeg ikke ved hvor meget data der vil komme ind i arrayet.

Mvh.

Christian_h
Avatar billede sjh Nybegynder
10. april 2005 - 12:12 #1
Dim fileData() As fData

ReDim fileData(8195) As fData
Avatar billede christian_h Nybegynder
10. april 2005 - 12:14 #2
Ja, det er sådan det er nu, men jeg ved ikke hvor meget data der vil komme, så de 8195 er bare et tal, det skal redimmes på en eller anden måde hvergang der køres en gang i loopet ?
Avatar billede sjh Nybegynder
10. april 2005 - 12:16 #3
ReDim Preserve fileData(8195) As fData
Avatar billede sjh Nybegynder
10. april 2005 - 12:19 #4
så kan du fx. gøre sådan..

  For i = 0 To 5000
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next

Så mister du ikke den gamle data..
Avatar billede christian_h Nybegynder
10. april 2005 - 12:21 #5
Kan jeg så føre således

Dim filData() As fData
ReDim fileData(j1) As fData

For i = 0 to 255
  j1 = j1 + 1
  ReDim Preserve fileData(j1)
next
Avatar billede sjh Nybegynder
10. april 2005 - 12:26 #6
Option Explicit

Private fileData() As String 'fData

Private Sub Form_Load()
 
  ' Her starter du fx. med at fylde dit array op med 256
  For i = 0 To 255
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next

  ' Her fylder du 256 mere i (511) men den gamle data vil ikke gå tabt..
  For i = 256 To 511
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next
End Sub
Avatar billede christian_h Nybegynder
10. april 2005 - 12:27 #7
Jeps, SUPER, det var lige den der "Preserve" jeg havde glemt, virker

Igen 1000 tak sjh, smid et svar.

Mvh.

Christian_h
Avatar billede sjh Nybegynder
10. april 2005 - 12:28 #8
;)
Avatar billede sjh Nybegynder
10. april 2005 - 12:29 #9
hov.. det skulle være et svar :D
Avatar billede christian_h Nybegynder
10. april 2005 - 12:29 #10
Sjh et svar ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester