[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