Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Array-Dimension bei DIM array()

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
BeitragVerfasst am: 09.04.2010, 22:34    Titel: Array-Dimension bei DIM array() Antworten mit Zitat
Gibt es eine Möglichkeit herauszufinden, ob ein Array nur als array() oder bereits als array(0) definiert ist? Beide male liefert U- und LBOUND den Wert 0.

Hintergrund: Ich möchte in einer SUB ein mitgegebenes Array von LBOUND bis UBOUND durchlaufen, und bei einem leeren Array gibt es eine segmentation violation. traurig
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 09.04.2010, 22:41    Titel: Antworten mit Zitat
Hallo,

der Anfangspointer auf das Array müsste, wenn es noch nicht initialisiert ist, immer 0 sein, denke ich. Das kann man dann überprüfen:
Code:
Dim x() As Integer
Dim y(0) As Integer

Print "LBOUND(x) = " & LBound(x)
Print "UBOUND(x) = " & UBound(x)
Print
Print "LBOUND(y) = " & LBound(y)
Print "UBOUND(y) = " & UBound(y)
Print
Print "@x = " & @x(LBound(x)) '<====
Print "@y = " & @y(LBound(y))
Print
If @x(LBound(x)) = 0 Then Print "Array x ist leer!"
If @y(LBound(y)) = 0 Then Print "Array y ist leer!"

Sleep


Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
BeitragVerfasst am: 09.04.2010, 22:47    Titel: Antworten mit Zitat
Scheint zu funktionieren. Danke schön. lächeln
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz