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);
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);
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?