Παράδειγμα

Το παρακάτω παράδειγμα ζητάει από το χρήστη να προσδιορίσει δύο ονόματα αρχείων Α, Β και αντιγράφει το αρχείο Α στο αρχείο Β.

program copyfile;
var
   infname, outfname : packed array [0..8] of char;
   fin, fout : file of char;
   c : char;

begin
     write('Give input file:');
     readln(infname);
     write('Give output file:');
     readln(outfname);
     assign(fin, infname);
     assign(fout, outfname);
     rewrite(fout);
     reset(fin);
     rewrite(fout);
     while not eof(fin) do
     begin
         read(fin, c);
         write(fout, c)
     end;
     close(fin);
     close(fout);
end.

ΠροηγούμενηΑρχεία κειμένου
Περιεχόμενα
ΕπόμενηΒιβλιογραφία