Ver Mensaje Individual
  #2  
Antiguo 09-06-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 27
__cadetill Va por buen camino
si el array es de un tipo definido por ti, tienes que declarar la variable de ese tipo, es decir

Código:
type pepe = Record of
      nombre : string;
      telf : string
end;

var F : file of pepe;
    a : array of pepe;
    i : integer;
begin
   AssignFile(F, nombrearchivo);
   Rewrite(F):
   for i := 0 to Hi(a) do
      Writeln(F, a[i]);
   CloseFile(F);
end;
(no esta probado, lo he hecho de cabeza)

Si no es de un tipo propio, es mas sencillo todabia

Código:
var F : TextFile;
    a : array of string;
begin
   AssignFile(F, nombrearchivo);
   Rewrite(F):
   for i := 0 to Hi(a) do
      Writeln(F, a[i]);
   CloseFile(F);
end;
como ves, la forma de grabar es identica en un caso y en el otro

espero te sirva
Responder Con Cita