Registriert seit: 10. Mai 2005
160 Beiträge
Delphi 7 Enterprise
|
Re: Binärbaum in eine Datei speichern
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"
|
|
Zitat
|