Einzelnen Beitrag anzeigen

new32

Registriert seit: 10. Mai 2005
160 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Binärbaum in eine Datei speichern

  Alt 16. Mai 2008, 19:36
Code:
typedef struct _DB {         //a simple DataBase
   struct _DB *parent;      //if(parent==0) "root of the db"
   struct _DB *sChild, *bChild;   //sChild->key < key; bChild->key > key
   char *key;
   char *value;
DB;

static int DBRSave(DB *db, FILE *f){
   size_t lng;
   if(db->key && db->value && strlen(db->key) && strlen(db->value)){
      lng=strlen(db->key);
      fwrite(&lng, sizeof(size_t), 1, f);
      fwrite(db->key, lng, 1, f);

      lng=strlen(db->value);
      fwrite(&lng, sizeof(size_t), 1, f);
      fwrite(db->value, lng, 1, f);
   }
   if(db->sChild) DBRSave(db->sChild, f);
   if(db->bChild) DBRSave(db->bChild, f);
   return 0;
}

int DBSave(DB *root, FILE *f){
   size_t lng;
   DBRSave(root, f);
   lng=0L;
   fwrite(&lng, sizeof(size_t), 1, f);
   return 0;
}
copy&paste aus einem meiner Projekte; vielleicht bringts dir ja was.

Sorry für "C"
~?&/%§$§%\&?~
8)
  Mit Zitat antworten Zitat