PureBoard

Schade.

Um dieses Problem manuell zu umgehen, können Sie einfach 'www. purebasic.com' durch 'purebasic.fr' in der URL ersetzen.

Hallo, guten Tag.
Wie funktioniert das bitte mit dem Zeiger *adr ?

Ich möchte eine Adresse *adr zuweisen , dann die Adresse *adr um 4 erhöhen.
Möchte bitte mit PeekB(*adr) ein byte holen.


Define var.q = $0807060504030201 ;8 bytes ($01 $02 $03 $04 $05 $06 $07 $08)
Define *adr = @var

Debug ...

Man verwendet ja Maps um nicht durchsuchen zu müssen und ist somit schon sehr schnell.


Wie erkennst du sonst, welche Keys von Dubletten betroffen sind?
(Dubletten sollen nicht verboten sein, aber müssen detektiert werden)
Die Map hat momentan bis zu 70'000 Elemente.

obst("key1") = "Apfel ...

Verwenden von ElapseMilliseconds():
Screen_Width = GetSystemMetrics_(#SM_CXSCREEN)
Screen_Height = GetSystemMetrics_(#SM_CYSCREEN)
Define Resolution.DEVMODE
Resolution.DEVMODE\dmSize = SizeOf(DEVMODE)
If EnumDisplaySettings_(0, #ENUM_REGISTRY_SETTINGS, @Resolution)
col_depth = Resolution ...

jacdelad hat geschrieben: 10.12.2021 06:07 Warum ist With nicht in Macros erlaubt? Die Hilfe sagt nichts dazu.

Im ENGLISCHEN Forum sagte Fred:
https://www.purebasic.fr/english/viewtopic.php?p=309266

....danke, arbeite seit einigen Stunden daran. Das eine Problem scheint gelöst zu sein. Jetzt rebelliert eine andere Stelle bei einem Readfile() und
Fileseek(). Der Compiler ist der Ansicht, dass die Datei nicht initialisiert sei. Die zu öffnende Datei wurde in eine Struktur geschoben, worauf sich ...

Kann man die Zeichenkette 'FFIR' in 4 ASCII-Variablen packen und über einen Operator verknüpfen, so dass ich bei meinen 4 Byte bleibe?

Hier:
PokeS(*mem, "RIFF", 4, #PB_Ascii | #PB_String_NoZero) : *mem+4 ; riff-chunk-ID "RIFF"
*mem\l = 36 + datachunkBytes : *mem+4 ; normally filesize minus ...

@Demivec

du hast dich verdoppelt :roll:

;Setup
Dim GadgetButtonList(63)

GadgetButtonList(0) = #Button_0
GadgetButtonList(1) = #Button_1
GadgetButtonList(2) = #Button_2
;...
GadgetList(63) = #Button_63

;use
Procedure ResetButtons()
Shared GadgetButtonList()

For x = 0 To 63 ...

Mmmh..welches Problem würde das losen ?


GadgetButtonList(0) = #Button_0

#Button_0 hat den Wert 63.

Ne Erklärung dazu wäre nicht schlecht.

Mir wäre es aber logischer, wenn die Enumeration es gleich richtig machen würde.

Erläuterung: Das Array umgeht alle Probleme mit den für die Gadgets ...