PureBoard

Code: Alles auswählen

EnableExplicit

Define *mem, length, *buffer, i

*buffer = AllocateMemory(1024)

If ReadFile(1, "test.dat")
  length = Lof(1)
  *mem = AllocateMemory(length)
  If *mem
    ReadData(1, *mem, length)
    While i < length
      CopyMemory(*mem + i, *buffer, 1024)
      ; hier der code für die 1024 byte
      i + 1024
    Wend
    FillMemory(*buffer, 1024) ; 

    CopyMemory(*mem + i, *buffer, length - i)
    ; hier die restbytes
    FreeMemory(*mem)
  EndIf
  CloseFile(1)
EndIf

Code: Alles auswählen

Structure StringKette
  s.s{4}[0]
EndStructure

Beispiel.s = "MausBallLöweEnteGlas"
*Teil.StringKette = @Beispiel
Debug *Teil\s[0]
Debug *Teil\s[1]
Debug *Teil\s[4]

Code: Alles auswählen

Structure Teil
  Long1.l
  Long2.l
  Word.w
EndStructure

Structure Kette
  Teil.Teil[0]
EndStructure


*Kette.Kette = AllocateMemory(1024)
*Kette\Teil[17]\Word = 123
*Kette\Teil[9]\Long1 = 123456

Debug *Kette\Teil[17]\Word 
Debug *Kette\Teil[9]\Long1