Ver Mensaje Individual
  #2  
Antiguo 14-10-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Puedes buscar por TStream, TMemoryStream y TFileStream por el foro o internet.

Viene a ser archivos binarios con la estructura y forma que necesites. La estructura no es fija, puedes cambiarla dinámicamente.

Código Delphi [-]
var datos :TStream;
     valor1:integer;
begin
  datos := TMemoryStream.Create;
  datos.Write(valor1, sizeof(integer));
  if Valor1 = 1 then
    datos.write(buffer, sizeof(buffer));
  else
    datos.write(buffer2, sizeof(buffer2));

  datos.SaveTofile('c:\datos.dat');
  datos.Free;
end;
Como ves, primero guardas el valor1 y después dependiendo del valor que contiene se graba en el archivo una cosa u otra.

Al tiempo de leer se deben interpretar los datos de la misma forma.

Si son clases que heredan de TPersistent, revisa también los métodos SaveToStream, TFiler y TReader. Ello permitiría guardar el objeto completo a disco (como hace delphi con el .dfm, por ejemplo).

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita