Manejo de tipos

[[Lepe]]

Aqui tienes un ejemplo con TFileStream de como guardarlo todo en un mismo archivo. No es un archivo de texto.

El problema es que debes saber en qué orden se han escrito los registros en el archivo, para recuperar los tipos de datos. Se puede mejorar guardando una marca que indique qué tipo de registro viene a continuación, y entonces, leer las variables con ese Tipo de registro; así salvamos el problema anterior.

No lo he incluido en el proyecto porque no sé si es lo que quieres, ya nos comentarás, sería algo así:

Código Delphi [-]
var marca :integer;
     u: TQ19Registro;
     d: TQ32Reg1;
begin
F.Read(marca, Sizeof(marca));
if Marca = 1 then
  F.Read(u, Sizeof(TQ19Registro))
else if marca = 2 then
  F.Read(d, SizeOf(TQ32Reg1))
else.....

Saludos