E...ovo je toliko nespretno, da nemam reci. Pa sta si ti mislio, da mozes da kazes samo
Code:
write(anyFile, MyVarRecord);
i da ti on ispise u jednom potezu 1.6 GB u fajl? Kamo srece da je to moguce.
Umesto TBackup recorda napravi TBackup klasu, koja sadrzi sve sto si naveo, plus umesto buffer-a, neka sadrzi STRING (nema boljeg dinamickog buffer-a), plus metode za otvaranje fajla, ispis u njega i zatvaranje istog. Ispis string-buffer-a ces raditi sa BlockWrite (nego kako), koje je uzgred VEOMA brz ispis (nema nikakvih provera tipova ni velicine; takodje DIREKTAN pristup harddisku - ako se dobro secam help-a iz TurboPascal-a). E sad, ako zadas predefinisane velicine tvog stringa (prema onom case-u gore), moguce je pisanje i ucitavanje istog u JEDNOM prolazu (jedan poziv BlockWrite/BlockRead-a); sve sto ti treba je da pozicioniras file pointer na pravu poziciju (Seek). Ali, ako ucitavas/pises one sitne varijable sa BlockRead/BlockWrite, mozda ti i ne treba Seek, jer BlockXXX funkcije same pomeraju pointer po fajlu.
Uh...dosta od mene zasad.
Rajko