webForumDet fria alternativet

Array med egen variabelTYp

3 svar · 221 visningar · startad av firstchoice

firstchoiceMedlem sedan okt. 2001615 inlägg
#1

jag har deklarerat enligt följande

Public Type udtMedRegTyp
'Globara variabler för vårt register.
    strFörnamn As String
    strEfternamn As String
    strTelefonnummer As String
    strPersonnummer As String
    strAdress As String
    strPostnummer As String
    strPostort As String
    strMedlemsavgift As String
End Type

Public g_aMedlemsRegister(0 To g_conMaxAntal - 1) As udtMedRegTyp

hur fixar jag en smidig spar funktion nu

orkar ju inte göra så här för alla
g_aMedlemsRegister(I).strFörnamn = "blblalala"

kan man göra en slags loop?

Nexus86Medlem sedan okt. 20023 030 inlägg
#2

Förstår inte riktigt men något sådant här?

Dim i As Integer

For i = LBound(g_aMedlemsRegister) To UBound(g_aMedlemsRegister)
    g_aMedlemsRegister(i).strFörnamn = "foo"
    ' Diverse annan kod ...
Next i

R// Läser du kanske in namnen från någon databas av något slag eller något?

firstchoiceMedlem sedan okt. 2001615 inlägg
#3

inte riktigt så jag menade
typ
for each object in g_aMedlemsRegister

Nexus86Medlem sedan okt. 20023 030 inlägg
#4

Då kommer du tyvärr inte närmre än såhär:

Dim objekt As udtMedRegTyp, i As Integer
    
For i = LBound(g_aMedlemsRegister) To UBound(g_aMedlemsRegister)
    objekt = g_aMedlemsRegister(i)
    
Next i

För att använda något skriver du sedan bara t.ex. objekt.strFörnamn

R// Vill du sedan att ändringarna du gjort i objekt även ska ändras i g_aMedlemsRegister, skriver du bara dit g_aMedlemsRegister(i) = objekt längst ner i loopen.

127 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)