Salvar objeto em um arquivo
Olá,
Alguem pode me indicar a forma que posso usar para salvar um objeto (com sua estrutura e dados) para um arquivo e depois como recupera-lo?
Tentei usar a procedure:
procedure salvaobj;
var
f: TFileStream;
begin
f:= TFileStream.Create(´teste.sav´, fmCreate);
try
f.Writebuffer(tim[1],sizeof(tim[1]));
finally
f.Free;
end;
end;
procedure recuperaobj;
var
o: TFileStream;
begin
o := TFileStream.Create(´teste.sav´, fmOpenRead);
try
tim[2].Free;
o.Readbuffer(tim[2],sizeof(o)) ;
finally
o.Free;
end;
end;
que salva o objeto tim[1] e depois recupera os dados em tim[2]; funciounou a principio, mas se adiciono um componente a minha form principal ele para de funcionar (acho que tem a ver com o size do count).
Agradeço ajuda.
Alguem pode me indicar a forma que posso usar para salvar um objeto (com sua estrutura e dados) para um arquivo e depois como recupera-lo?
Tentei usar a procedure:
procedure salvaobj;
var
f: TFileStream;
begin
f:= TFileStream.Create(´teste.sav´, fmCreate);
try
f.Writebuffer(tim[1],sizeof(tim[1]));
finally
f.Free;
end;
end;
procedure recuperaobj;
var
o: TFileStream;
begin
o := TFileStream.Create(´teste.sav´, fmOpenRead);
try
tim[2].Free;
o.Readbuffer(tim[2],sizeof(o)) ;
finally
o.Free;
end;
end;
que salva o objeto tim[1] e depois recupera os dados em tim[2]; funciounou a principio, mas se adiciono um componente a minha form principal ele para de funcionar (acho que tem a ver com o size do count).
Agradeço ajuda.
Anonymous
Curtidas 0