Puedes hacer algo como esto:
var
F : TextFile;
F2 : TextFile;
Aux : String;
begin
AssignFile(F, 'tuarchivo.xxx');
AssignFile(F2, 'tuarchivo2.xxx');
Reset(F);
Rewrite(F2);
try
ReadLn(F, Aux);
WriteLn(F2, Aux);
finally
CloseFile(F);
CloseFile(F2);
end;
end;
Lo que hace es que primero lee una linea de F y esa linea la escribe en F2.
Puedes utilizar for o while para leer o escribir tantas lineas como necesites. Espero este sencillo ejemplo te sirva.
doverzhoff
|