Arrays og objekter

Prøv
Dim myArr()

Det giver et andet lille problem:
Microsoft VBScript compilation error '800a0411'

Name redefined

Hvordan får jeg lukket mit array, så jeg kan oprette det igen?

Hvad skriver du?

Dim myArr(1)

tror erikjacobsen mener noget i stil med:

Dim myArr()
ReDim myArr(1)
set myObj1 = new Obj
set myObj2 = new Obj
set myArr(0) myObj1
ReDim Preserve myArr(1)
set myArr(1) myObj2


Microsoft VBScript compilation error '800a0411'
Name redefined

Den fejl kommer kun hvis du Kører Dim på det samme navn to gange.

Og det må man ikke:)

Du må skrive mere end den ene linie:
  Dim myArr(1)

jo det gør jeg da også:
  set thisPage1 = new Page
  set thisPage2 = new Page
  thisPage1.pageName = "thisPage1"
  thisPage2.pageName = "thisPage2"
  Dim myObjArr(0)
  set myObjArr(0) = thisPage1
  Dim myObjArr(1)
  set myObjArr(1) = thisPage2

Normalt ville jeg også skrive Redim Preserve myObjArr(1) -> men her får jeg så:
Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

Hvis man sætter det til en fast str. til at starte med, så opstår fejlen (mener jeg:)), når du redim'er den.

Derfor skal du ikke initialisere den til at starte med. Prøvede du det jeg skrev?

Prøv at læse det her, der er en guide.

http://www.aspfaq.com/show.asp?id=2067

Men hvor har du skrevet det jeg foreslår 14/04-2005 09:35:54 ??  Hvis du ikke vil bruge et forslag er du velkommen til at lade være, men det vil være pænt at nævne det.

erikjacobsen:
  set thisPage1 = new Page
  set thisPage2 = new Page
  thisPage1.pageName = "thisPage1"
  thisPage2.pageName = "thisPage2"
  Dim myObjArr(0)
  set myObjArr(0) = thisPage1
  Dim myObjArr()
  Redim myObjArr(1)
  set myObjArr(1) = thisPage2

Ved Dim myObjArr() får jeg: Name redefined

skyggen2000:
Det der står i guiden er faktisk også det jeg har gjort.
Mit problem ligger i at arrayet bliver 'locked' når jeg sætter et objekt ind i det.

Kan man 'slukke' for et array så man efterfølgende kan oprette det igen uden at få en ->Name redefined

der står dette her:

    Dim demoArray()
    ReDim demoArray(x)

du skal ændre din kode til

  set thisPage1 = new Page
  set thisPage2 = new Page
  thisPage1.pageName = "thisPage1"
  thisPage2.pageName = "thisPage2"
  Dim myObjArr()
  Redim myObjArr(0)
  set myObjArr(0) = thisPage1
  Redim preserve myObjArr(1)
  set myObjArr(1) = thisPage2

så burde det funke.

hmmm - så tæt på og så langt fra !!!
Humlen må være at arrayet bliver opfattes som fixed når jeg først satte den ved: Dim myObjArr(0) !

Super - tak for kampen, kom med et svar

Det har du ret i, jeg skrev også:
Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

Hvis man sætter det til en fast str. til at starte med, så opstår fejlen (mener jeg:)), når du redim'er den.

Derfor skal du ikke initialisere den til at starte med. Prøvede du det jeg skrev?

erikjacobsen >> Desuden kom jeg vidst til at blande mig i dit spg. hvis forslag faktisk var det korrekte.

Vi kunne måske splitte dem, ellers giv dem alle til erikjacobsen.

Ja, du skal kun skrive det uden et tal i parentesen - ikke begge dele ;)

Ingen point til mig, tak.

Det er jo altid problemet med korespodence over nettet om man kan misforstå hindanden. Jeg syntes nu også at du erik... skal have point...

erikjacobsen:
jeg har oprettet spørgsmålet "Point til erikjacobsen i forbindelse med Arrays og objekter" ....

Det er der ingen grund til. Jeg samler slet ikke på point.