Das deutsche QBasic- und FreeBASIC-Forum

[Weazle25]

Wie kann man verschiedene (einfache) Datentypen in ein und dem selben Speicherfeld speichern bzw aus selbigem auslesen?

Grund: Ich möchte meine Daten künftig komprimiert auf der Festplatte speichern.
Dazu müssen die komprimierten Daten in ein Speicherfeld gelesen und dort dekomprimiert werden.
Anschliessend werden die Daten aus diesem Speicherfeld ausgelesen.
Das De-/Komprimieren klappt mittlerweile problemlos.
Das Problem ist aber das auslesen der Daten.
Bisher habe ich das Speicherfeld als UByte PTR deklariert und Shorts/Ints beim Lesen/Speichern in einzelne Bytes zerlegt bzw. aus einzelnen Bytes zusammen gesetzt.
Floats musste ich um das Runden zu unterbinden bisher sogar Bitweise kopieren.

Daher meine Frage: Gibt es dafür eine einfachere Lösung?

Ich stelle mir das etwa wie bei BlitzBasic vor:
Bank = CreateBank( Size ) -> entspricht in etwa Allocate bzw. Callocate
Byte = PeekByte( Bank, Offset )
Short = PeekShort( Bank, Offset )
Float = PeekFloat( Bank, Offset )
PokeByte( Bank, Offset, Byte )
PokeFloat( Bank, Offset, Float )

Gibt es so etwas auch in FreeBasic?
Oder wie kann man das in FreeBasic umsetzen?


Gruss
Weazle

[MisterD]

es gibt ein Äquivalent zu structs in C, die Types (mit der Erweiterung um funktionspointer):

TYPE foo
bar1 AS INTEGER
bar2 AS STRING
END TYPE

zB zu benutzen als

DIM obj AS foo
obj.bar1 = 2
obj.bar2 = "hallo"

schau dazu vllt mal in die Referenz.


Und Arrays gibts auch:

DIM array(maxIndex) AS type

zB

DIM feld(4) AS foo
feld(3) = obj
IF feld(4)=obj THEN PRINT "42"

suchst du sowas?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Weazle25]

@MisterD
Das ist leider nicht was ich suche.
Vielleicht habe ich mich etwas unglücklich ausgedrückt.
Ich will mit Allocate ein Speicherfeld erstellen und in diesem Speicherfeld Variablen mit verschiedenen Datentypen speichern.

Beispiel: (Pseudo-Code)

Bank = Allocate( 100 )
Offset = 0
PokeUByte( Bank, Offset, 200 )
Offset = 1
PokeUShort( Bank, Offset, 39217 )
Offset = 3
PokeUInteger( Bank, Offset, 1234567890 )
Offset = 7
PokeDouble( Bank, Offset, 37.45 )

Ich hoffe das das jetzt verständlicher ist.


Gruss
Weazle

[MisterD]

TYPE bank
wert1 AS UBYTE
wert2 AS USHORT
wert3 AS UINTEGER
wert4 AS DOUBLE
END TYPE

DIM myBank AS bank
WITH myBank
.wert1 = 200
.wert2 = 39217
.wert3 = 1234567890
.wert4 = 37.45
END WITH

oder meinst du, dass du die typen auch noch runtime ändern können willst?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Elektronix]

Dim pFOO as ANY Ptr

"ANY" erlaubt es, daß der Pointer auf jede Art von Datentyp, einschließlich userdefinierte Datentypen- zeigen kann. Allerdings, bevor Du allociierst, sollte das Programm genau wissen, wieviel Speicher es braucht. D. h. die Variablen, für die Du Speicher allociierst, sollten bis dahin fertig gefüllt sein.

[Edit] Ist für Deine Belange aber ungeeignet. Ein allociierter Datentyp muß einen entsprechenden Pointer haben.

Was ist mit UNION?
_________________
Und die Grundgebihr is aa scho drin- DOS is jo nett.

[Weazle25]

Also noch mal zum mitschreiben
Ich will nix über UDT's oder Arrays wissen sondern über Speicherfelder die mit Allocate bzw. Callocate erstellt werden.

In der Online-Hilfe habe ich dazu dieses Beispiel gefunden:

[MisterD]

TYPE bank
wert1 AS INTEGER
wert2 AS STRING
END TYPE

DIM AS bank PTR buffer

buffer = ALLOCATE(4*sizeof(bank))

buffer[3].wert1=200
buffer[3].wert2="hallo"

DEALLOCATE(buffer)

Damit FB auf irgendwas zugreifen kann muss es den Datentyp des Speicherobjekts kennen, ANY ist ein nicht definierter Datentyp -> geht nicht. Also entweder musst du dir dann von Hand merken, was wo steht, oder du definierst deinen Speicherbereich als udt-pointer-feld was ja auch geht, siehe oben.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[volta]

[Elektronix]

[Cherry]

Meinst du sowas?

[Weazle25]

Ich bin gerade in der Online-Hilfe über Peek und Poke gestolpert und da kam mir folgendes in den Sinn:

[Elektronix]