|
program modello; uses crt, mod6; type r=record n:byte; end; tfile=file of r; var nomefile,nomefile2:str; t0:real; procedure copiafile(var a,b:tfile); var i,fine,re:longint; dato:r; begin i:=0; fine:=filesize(a); re:=fine div 80; seek(a, 0); seek(b, 0); writeln('Trovati ',fine,' record'); while i<fine do begin read(a, dato); write(b, dato); i:=i+1; if (i mod re)=0 then write('õ'); end; end; function copia(a,b:str):boolean; var fa,fb:tfile; begin {$I-} assign(fa, a); reset(fa); {$I+} if IoResult=0 then begin assign(fb, b); rewrite(fb); copiafile(fa,fb); close(fa); close(fb); copia:=true; end else copia:=false; end; begin clrscr; CentraFrase('Programma che copia i file', 2); linea('-'); domanda('File da copiare ', nomefile); domanda('Nome della copia del file ', nomefile2); t0:=tempo; if copia(nomefile, nomefile2) then begin linea('/'); writeln('Tempo impiegato: ',tempo-t0:8:2,' secondi'); end else writeln('File ',nomefile,' non trovato'); pausa('Fine del programma.', 1, wherey+2); end.
|
|
