 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
braesident
Anmeldungsdatum: 15.04.2008
Beiträge: 189
Wohnort: Berlin
|
 Verfasst am: 02.04.2014, 12:07 Titel: dynamisches array -1 |
 |
|
hallo leute
hab gerade mein letztes projekt rausgekramt und bei gelegenheit freebasic von 0.24. auf 0.90.1 aktuallisiert
nun schmiert mein prog immer ab. habs über die console gestartet und siehe da es ist ein arrayproblem.
also bei z.B. DIM ABC() AS INTEGER war UBOUND(ABC) sonst immer 0 doch jetzt ist es -1.
soll das jetzt so sein oder läuft nur bei mir was schief? |
|
| Nach oben |
|
 |
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 02.04.2014, 12:39 Titel: |
|
|
http://www.freebasic.net/wiki/wikka.php?wakka=KeyPgUbound
| Zitat: | | If dimension is zero (0), Ubound returns n, the number of dimensions in the array. For any other dimension values outside of the valid range 1..n, the result is -1. This can be used to detect the number of dimensions of variable-length arrays, and in combination with the result of Lbound() for such cases, whether a given dimension exists, or whether the array is empty (zero dimensions). See the Lbound page for more information. |
MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
braesident
Anmeldungsdatum: 15.04.2008
Beiträge: 189
Wohnort: Berlin
|
| Verfasst am: 02.04.2014, 13:03 Titel: |
|
|
das heisst ich müsste also mein ganzen code abändern
von so
| Code: |
Type Paket
E As Integer
X as integer
Y as integer
End Type
Dim FFP() AS Paket
...
sub dazu(...)
redim preserve FFP(UBound(FFP)+1)
FFP(UBound(FFP)).E = 1
FFP(UBound(FFP)).X = AF_X
FFP(UBound(FFP)).Y = AF_Y
...
end sub
...
|
nach
| Code: |
Type Paket
E As Integer
X as integer
Y as integer
End Type
Dim FFP() AS Paket
...
sub dazu(...)
redim preserve FFP(UBound(FFP, 0)+1)
FFP(UBound(FFP, 0)).E = 1
FFP(UBound(FFP, 0)).X = AF_X
FFP(UBound(FFP, 0)).Y = AF_Y
...
end sub
...
|
??? |
|
| Nach oben |
|
|
RockTheSchock
Anmeldungsdatum: 04.04.2007
Beiträge: 138
|
| Verfasst am: 02.04.2014, 14:44 Titel: |
|
|
Ich glaube du hast ein anderes Problem. Innerhalb von sub dazu(...) ist FFP nicht bekannt.
Entweder
Dim Shared ffp() as Paket
oder übergib das Array der sub.
| Code: | Type Paket
E As Integer
X as integer
Y as integer
End Type
Declare sub dazu(FFP() As Paket, AF_X As Integer, AF_Y As Integer)
Dim FFP() AS Paket
dazu ffp(),11,22
Print ffp(0).X,ffp(0).Y,ffp(0).E
dazu ffp(),12,24
Print ffp(1).X,ffp(1).Y,ffp(1).E
Sleep
sub dazu(FFP() As Paket, AF_X As Integer, AF_Y As Integer)
redim preserve FFP(UBound(FFP)+1)
FFP(UBound(FFP)).E = 1
FFP(UBound(FFP)).X = AF_X
FFP(UBound(FFP)).Y = AF_Y
end Sub |
|
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4702
Wohnort: ~/
|
| Verfasst am: 02.04.2014, 18:29 Titel: |
|
|
Eine Änderung von UBOUND(array) in UBOUND(array, 0) ist auf jeden Fall falsch, weil letzteres die Anzahl der Dimensionen angibt - also bei nicht dimensionierten Arrays 0, ansonsten bei deinem Array immer 1, weil du ja nur eine Dimension definierst. UBOUND(array, 0) eignet sich in deinem Fall nur dazu festzustellen, ob das Array überhaupt bereits dimensioniert ist oder nicht.
| Zitat: | | also bei z.B. DIM ABC() AS INTEGER war UBOUND(ABC) sonst immer 0 doch jetzt ist es -1. |
Für deine Zwecke sollte das doch sogar von Vorteil sein - ein Array ohne Dimensionierung wird dann im ersten Schritt mit FFP(0) dimensioniert, was ein eindimensionales Array der Länge 1 ist (von 0 bis 0).
Ich denke auch eher, dass dein Problem an einer fehlenden Übergabe des Arrays an die Sub liegt - lässt sich leider wegen des fehlenden Prozedurkopfs nicht deutlich erkennen.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
braesident
Anmeldungsdatum: 15.04.2008
Beiträge: 189
Wohnort: Berlin
|
| Verfasst am: 03.04.2014, 08:47 Titel: |
|
|
entschuldigt
also deklarieren tu ich das so wie ihr schreibt
| Code: | | Declare Sub AddFieldT(FFP() AS Paket, AF_X AS Integer = 1, AF_Y AS Integer = 1, _ |
das problem ist, wenn ich
| Code: | Dim FFP(0) As Paket
Redim preserve FFP(UBound(FFP)+1) |
schreibe, gibt es eine fehlermeldung
ansonsten hab ich noch ohne SUB probiert
| Code: | screenres 666, 444, 32, , &h10
type paket
E as integer = 234
y as integer
end type
Dim FFP() As Paket
? UBound(FFP) 'Ergebnis -1
Redim Preserve FFP(UBound(FFP)+1)
? Ubound(FFP) 'Ergebnis 0
Redim Preserve FFP(UBound(FFP)+1)
? Ubound(FFP) 'Ergebnis 1
Redim Preserve FFP(UBound(FFP)+1)
? Ubound(FFP) 'Ergebnis 2
Redim Preserve FFP(UBound(FFP)+1)
? Ubound(FFP) 'Ergebnis 3
Sleep
End
|
das ist soweit ok nur das nach dem erstern redim halt 0 anstelle von 1 ist. Unter FB0.24 war es 1.
ansonsten noch das | Code: | screenres 666, 444, 32, , &h10
type paket
E as integer = 234
y as integer
end type
Dim FFP() As Paket
? UBound(FFP) 'Ergebnis -1
Redim Preserve FFP(UBound(FFP, 0)+1)
? Ubound(FFP) 'Ergebnis 1
Redim Preserve FFP(UBound(FFP, 0)+1)
? Ubound(FFP) 'Ergebnis 2
Redim Preserve FFP(UBound(FFP, 0)+1)
? Ubound(FFP) 'Ergebnis 2
Redim Preserve FFP(UBound(FFP, 0)+1)
? Ubound(FFP) 'Ergebnis 2
Sleep
End
|
Edit/
ok so müsste es gehen!?
| Code: | type paket
E as integer = 234
y as integer
end type
ReDim FFP(0) As Paket
...
|
Ergebnis 0, 1, 2, 3, 4 |
|
| Nach oben |
|
|
|
|
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.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
