Programación General > Pascal

 Como crear un archivo

<< < (2/3) > >>

Hao:
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..... :lightsabre:

Hao:
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..... :lightsabre:

Artemio:
:hola: 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.

Hao:
Ta bien... :kicking:
pues no hay mas q acalrar con eso no?..

Hakuna Matata... :hola:

Artemio:
Quisiera saber si quedo claro el codigo que escribi arriba :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior