German dynamisches Array

Discussion in 'German Forum' started by Mr.Bamba, Mar 24, 2009.

  1. Mr.Bamba

    Mr.Bamba Member Licensed User

    Kann man von einem Globalen-Struktur-Array die Größe nachträglich ändern?
    Folgendes funktioniert nicht.

    Code:
    Public Sub Globals
        
    Dim Type(a,b,c) prgss (0)
    End Sub

    Public Sub Init   
       
    Dim prgss (10)  
    End Sub
    prgss ist dann zwar 10 Elemente groß, die Felder a,b & c gib's aber nicht mehr.
    :(
     
  2. Filippo

    Filippo Expert Licensed User

    Hallo Mr.Bamba,

    so viel ich weis man kann nicht eine Globale Variable in ein "Sub" nochmal definieren.
    In dein Fall ist die Variable "prgss" in dein "Public Sub Init" eine neue Variable.

    Ciao,
    Filippo
     
  3. Mr.Bamba

    Mr.Bamba Member Licensed User

    nein

    eine Variable in Sub ist nur lokal & man kann sie außerhalb der Methode nicht sehen

    1. Wenn ich die Variable in "Globals" definieren
    2. dann in "Sub Init" über dim vergrößere
    3. dann ist sie in einer anderen Methode (Sub) in voller Größe sichtbar

    Leider klappt das nur bei einfachen Arrays, nicht bei Strukturierten - da ist die Struktur weg.

    Im englischen Forum habe ich so ein einfaches Bsp. gesehen.
     
  4. specci48

    specci48 Well-Known Member Licensed User

    Hallo Mr.Bamba,

    für eine korrekte Redefinition muss der Befehl
    Code:
    Public Sub Init   
       
    Dim prgss (103)  
    End Sub
    lauten, d.h. als zweiter Parameter ist die Anzahl der Type-Parameter zu übergeben.
    Anschließend hat man eine 10 x 3 Matrix auf die wie gewohnt mit prgss.x, prgss.y und prgss.z zugegriffen werden kann.


    Gruß
    specci48
     
  5. Mr.Bamba

    Mr.Bamba Member Licensed User

    Vielen Dank - so funktioniert's gut :)

    Forum hier gefällt mir gut :rolleyes:
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice