PureBoard

Code: Alles auswählen

*DB.DB = DB_Create()
;Datei öffnen blablabla
*DB\ReadDB(FileID)
;Datei wieder schließen

Code: Alles auswählen

Interface DB
...
AddRow(Pos.l = -1, Rows.l = 1)
...
EndInterface
...
Procedure.l DB_AddRow(*DB.DB_Struc, Pos.l = -1, Rows.l = 1) ;Fügt (eine) neue Zeile(n) hinzu, die zur aktuellen wird
  Protected *Row.Long, *temp, a.l

  If *DB\Cols = 0 : ProcedureReturn #False : EndIf
  If Rows < 1 : ProcedureReturn #False : EndIf
  
  If *DB\Rows = 0
    *DB\tRows = (Rows / *DB\ChunkRows) * *DB\ChunkRows + *DB\ChunkRows
    *DB\pRows = AllocateMemory(*DB\tRows * 4)
    If *DB\pRows = 0 : ProcedureReturn #False : EndIf
    
    *Row = *DB\pRows
    For a = 1 To Rows
      *Row\l = AllocateMemory(4 + *DB\ColSize)
      PokeL(*Row\l, *DB\Cols)
      *Row + 4
    Next
    *DB\Rows = Rows
    *DB\ActRow = 1
  
  Else
    If (*DB\Rows + Rows) > *DB\tRows
      a = ((*DB\Rows + Rows) / *DB\ChunkRows) * *DB\ChunkRows + *DB\ChunkRows
      *temp = ReAllocateMemory(*DB\pRows, a * 4)
      If *temp = 0 : ProcedureReturn #False : EndIf
      *DB\tRows = a
      *DB\pRows = *temp
    EndIf
    *DB\Rows + Rows
    
    If Pos => 0 And Pos < *DB\Rows - 1 ; Neue Zeile hinter die mit Nummer 'Pos'
      CopyMemory(*DB\pRows + Pos * 4, *DB\pRows + (Pos + Rows) * 4, (*DB\Rows - Pos - 1) * 4)
      *Row = *DB\pRows + Pos * 4
      For a = 1 To Rows
        *Row\l = AllocateMemory(*DB\ColSize + 4)
        PokeL(*Row\l, *DB\Cols)
        *Row + 4
      Next
      *DB\ActRow = Pos + 1
    Else
      *Row = *DB\pRows + *DB\Rows * 4 - 4
      For a = 1 To Rows
        *Row\l = AllocateMemory(*DB\ColSize + 4)
        PokeL(*Row\l, *DB\Cols)
        *Row + 4
      Next
      *DB\ActRow = *DB\Rows
    EndIf
  EndIf
  
  ProcedureReturn #True
EndProcedure