; English forum: http://www.purebasic.fr/english/viewtopic.php?t=9439&highlight=
; Author: ppjm99 (updated for PB 4.00 by Andre)
; Date: 08. February 2004
; OS: Windows
; Demo: Yes

; Problem: ein "Invalid Memory" Fehler wird durch dieses Beispiel im Code der Include-Datei verursacht.


IncludeFile "memrec.pbi" 

Procedure PrintRecord(Record$) 
    Debug Record$ 
EndProcedure 

Procedure ShowRecord(Record$) 
    MessageRequester("Show Record",Record$) 
EndProcedure 

MemFieldDefs$ = "Name,20,T,Age,3,N" ;Fieldname,Size,Type,Fieldname,Size,Type, Etc... 
  
MemRecAdd(MFP("Name","Bob") + MFP("Age","30")) 
MemRecAdd(MFP("Name","Jim") + MFP("Age","20")) 
MemRecAdd(MFP("Name","Alan") + MFP("Age","50")) 

Debug "Sorted by Name Ascending" 
MemIndexCreate(MemFieldStart("Name"),MemFieldSize("Name"),0) 
MemRecsProcess(@PrintRecord()) 
;MemRecsProcess(@ShowRecord()) 

Debug "Sorted by Age Ascending" 
MemIndexCreate(MemFieldStart("Age"),MemFieldSize("Age"),0) 
MemRecsProcess(@PrintRecord()) 

Debug "Sorted by order added" 
MemIndexClear() 
MemRecsProcess(@PrintRecord()) 

Debug "Save Records to file" 
MemRecsToFile("Testfile.txt") 

MemRecsClear() 
Debug "Records Erased from memory" 
MemRecsProcess(@PrintRecord()) 

Debug "Load records from file" 
MemRecsFromFile("Testfile.txt") 
MemRecsProcess(@PrintRecord()) 

Debug "" 


; IDE Options = PureBasic v4.02 (Windows - x86)
; Folding = -