SoloCodigo

lo puedes hace utilizando la opcion de reset..

NOOOOO FSR creo que diverjo con tu aclaratoria



ta bien que se cree un archivo con

assign (arch,c:\windows\escrit~1\archivo.dat);

ok luego si lo reseteas el archivo no se va a crear
por consiguiente

/*** se debe hacer:***/
              rewrite(arch);
/*para luego */
              reset(arch);

lo más conveniente es crear primero el archivo. una vez creado quitas el rewrite para evitar problems de sobre escritura del archivo en la dirección planteada. y utilizarías como lo dice el colega FSR un Seek --- append(en algunos casos) para correr por las líneas del archivo.

chauuuuuuuuuuuuuuuuuuuuuuuuuu        

       C++ BorlFJ

Fire....
Fsr parece tener cierta razon, pues la funcion append solo es utilizada  en  archivos tipo txt.. pero de todos modos creo que la duda de orgaciber esta aclarada pero al parecer no la a leido.....

Oye te envio este codigo haber si te sirve

Sigue adelante tio, en lo que te pueda ayudar ahi estoy.


Program CopiaArchivo;
Uses
   Crt;
Var
   ArchOrigen    : Text;
   ArchDestino   : Text;
   Linea         : String;
   NomArchOrigen : String;
   NomArchDestino: String;
Begin
  ClrScr;
  Write('Ingrese Nombre de Archivo Origen : ');
  ReadLn(NomArchOrigen);
  Write('Ingrese Nombre de Archivo Destino: ');
  ReadLn(NomArchDestino);
  Assign( ArchOrigen , NomArchOrigen );
  Reset( ArchOrigen );
  Assign( ArchDestino , NomArchDestino );
  ReWrite( ArchDestino );
  HighVideo;
  WriteLn('Copiando Archivo ... ');
  While not( Eof( ArchOrigen ) ) Do
    Begin
      ReadLn( ArchOrigen , Linea );
      WriteLn( ArchDestino , Linea );
      WriteLn(Linea);
      Delay( 1500 );
    End;
  LowVideo;
  Close( ArchOrigen );
  Close( ArchDestino );
End.

Quisiera saber si quedo claro el codigo que escribi arriba