XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Array: Array in Datei speichern und aus Datei lesen
Def MoveMemory(3) !KERNEL32,RtlMoveMemory
Declare buf#,size&
Declare test&[9,9]
Let size&=400  Anzahl * Anzahl * Größe des Datentyps
Let test&[9,9]=1234
Dim buf#,size&
MoveMemory(buf#,Addr(test&[0,0]),size&)
Assign #1,C:TEST.BIN
OpenRW #1
BlockWrite #1,buf#,0,size&
CloseRW #1
Dispose buf#
Print Nach Klick wird Array aus Datei gelesen
WaitInput
Cls
Declare test2&[9,9]
Dim buf#,size&
Assign #1,C:TEST.BIN
OpenRW #1
BlockRead(#1,buf#,0,size&)
CloseRW #1
MoveMemory(Addr(test2&[0,0]),buf#,size&)
Dispose buf#
Print test2&[9,9]
Print Wenn 1234 da steht, dann hats geklappt
WaitInput