hola logre guardar mis objetos que estan almacenados en un array asi:
Código Delphi
[-]
procedure TFrmPrincipal.ToolButton14Click(Sender: TObject);
var
FS: TFileStream;
I:Integer;
begin
SaveDialog1.Filter:='Archivo XML(*.dat|*.DAT';
if SaveDialog1.Execute then
begin
try
FS := nil;
try
FS := TFileStream.Create(SaveDialog1.FileName, fmCreate);
for I := 0 to High(ArrayObjetos) do
FS.WriteComponent(ArrayObjetos[i].getObjeto);
finally
FS.Free;
end;
finally
ShowMessage('Archivo Guardado');
end;
end;
end;
pero al hacer la funcion de cargar?
cual seria el Tobjet?
Código Delphi
[-]
procedure TFrmPrincipal.ToolButton3Click(Sender: TObject);
var
FS: TFileStream;
newO:TObjeto;
I:Integer;
begin
OpenDialog1.Filter:='Archivo dat(*.dat|*.DAT';
if OpenDialog1.Execute then
begin
try
FS := nil;
try
FS := TFileStream.Create( OpenDialog1.FileName, fmOpenRead );
FS.ReadComponent(TObjeto.create);
finally
FS.Free;
end;
finally
end;
end;
end;
lo que quiero hacer es leer el archivo y meter estos datos en un array de objetos, debo hacer un for del FS?? como asigno el objeto a mi array para poder acceder a los metodos SET y GET de mi objeto (Tobjeto es mi clase de Objetos, no es igual a TObject)
gracias