[ anon68680 @ 06.06.2009. 19:35 ] @
Dakle imam neku svoju klasu TMojaKlasa, i imam TObjectlist u koji cu smestiti nekoliko objekata izvucenih iz TMojaKlasa.

Code:

var
myobject: TMojaKlasa;
List: TObjectList;
db: file of TMojaKlasa;
begin
 myobject := TMojaKlasa.Create;
 List.Add(myobject);
 Assignfile(db,'objekti.db');
 Reset(db);
 Write(db,myobject);
 CloseFile(db);


posto sam sacuvao objekte sledeci put kad pokusam da ih izvucem iz fajla koristim
...
Code:

 Assignfile(db,'objekti.db');
 Reset(db);
 while not EOF(db) do
 begin
   Read(db,myobject);
   List.Add(myobject);
 end;
 CloseFile(db);

medjutim, kod ne funkcionise. Gde gresim?
[ savkic @ 07.06.2009. 13:36 ] @
Na taj način samo čuvaš pointer na objekat, 4 bajta ne sadržaj polja tog objekta. Najbolje da ručno snimiti sva željena polja iz klase u nekom formatu (fiksne dužine, tab delimited, CSV...)
[ anon68680 @ 11.06.2009. 23:53 ] @
Tako sam i mislio...
Ponadao sam se da mogu da sacuvam vise objekta bez nekih petlji i sl, ali nema veze.. Resio sam sve to tako sto sam napravio array wrapper sa naredbom Save koji prelista objekte unutar arraya i sacuva ih.
[ tkaranovic @ 28.06.2009. 14:13 ] @
Ako neko bude tražio i pronašao ovu temu može da pogleda šta rade:

WriteComponentResFile i ReadComponentResFile