Varios tipos de datos en un fichero

[xaviroch]

Buenos dias,

Estoy intentando crear un fichero en el que quiero guardar diferentes tipos de variables, pero no lo consigo, solo se guardarun tipo de variable.

Código Delphi [-]
type
  tipo1 = record
      .....
  end;
  tipo2 = record
     .....
  end;
var
  f : file 
  t1 : tipo1
  t2 : tipo2
begin
  assignfile(f,'prueba.dat');
  rewrite(f);
  write(f,t1);
  write(f,t2);
  closefile(f);
end;

Esta seria basicamente la estructura que no funciona.

Gracias!

[Casimiro Notevi]

No podemos adivinar exactamente qué problema tienes, cómo lo estás haciendo, qué quieres conseguir, etc.
Además, ¿en los puntos consecutivos qué código va? Pon el código, no podemos adivinar

[xaviroch]

Ok, quiza he dado poca información. Es un programa de diseño grafico tipo CAD, con vectores, puntos y textos entre otros objetos. Lo que necesito es guardar todos estos datos en un fichero.

Código Delphi [-]
type
  tvector = record
      p1,p1 : Tpointer;
      col : TColor;
  end;
  ttexto = record
     pos : TPointer;
     text : String[50];
     col: TColor;
  end;
var
  f : file 
  vec : array of tvector
  texto : array of ttext
  punto : array of tpoint;
  t : integer;
begin
  assignfile(f,'prueba.dat');
  rewrite(f);
  for t:=0 to length(vec) do write(f,vec[t]);
  for t:=0 to length(texto) do write(f,texto[t]);
  for t:=0 to length(punto) do write(f,punto[t]);
  closefile(f);
end;

El problema es que tendria de definir F como file of TVect, pero entonces ya no puedo guardar mas datos.
Posiblemente podria escribir todos los datos, "tipo" a "tipo", añadiendolo al final del fichero, pero despues no sabria como abrir el fichero, espero explicarme.

Espero que me podais ayudar.

Gracias de antemano

[BDWONG]

Puedes darle una revisada a la funciones BlockRead y BlockWrite estas no necesitan definr un File of type

mira te dejo un pequeño ejemplo que hice

Código Delphi [-]
uses
  SysUtils,Types ;

type
  TVector = record
      punto: TPoint;
      color:string[50];
  end;
  TTexto = record
     pos : TPoint;
     text :String[50];
     col: integer;
  end;
var
  myFile : file;
  vec,vecLeido :TVector;
  texto :TTexto;
begin
  //asignamos valores al record vec de tipo TVector
  vec.punto.X:=10;
  vec.punto.Y:=18;
  vec.color:='rojo';

  //asociamos el fichero con la variable
  assignfile(myFile,'prueba.dat');

  //Escribimos el bloque de memoria
  rewrite(myFile,SizeOf(vec));
  BlockWrite(myFile,vec,1);
  closefile(myFile);

  //Leemos el bloque de memoria
  Reset(myFile,SizeOf(vec));
  BlockRead(myFile,vecLeido,1);
  closeFile(myFile);

  //Escribimos los valores
  Writeln(vecLeido.punto.x);
  Writeln(vecLeido.punto.y);
  Writeln(vecLeido.color);
  Readln;

end.

link de ayuda:
http://www.delphibasics.co.uk/RTL.asp?Name=BlockWrite
http://www.delphibasics.co.uk/RTL.asp?Name=BlockRead

Saludos...

[xaviroch]

Como odria cambiar el tamaño de los datos a mitad de fichero? Es decir:

//creamos fichero
rewrite(myFile,SizeOf(vec));
...
//cambiamos tamaño del registro
reset(myFile,SizeOf(texto));
...

o se como podria hacerse....

[Ñuño Martínez]

Empezado por xaviroch

Como odria cambiar el tamaño de los datos a mitad de fichero?

No se puede.

De todas formas, tienes que revisar cómo funciona la memoria y qué representa cada tipo de dato. Se evidencia en que lo tienes poco asimilado al intentar guardar un puntero en un archivo de disco.