Funcion: FpDup()
Sintaxis:

function FpDup(
 
  fildes: cInt
 
):cInt;
 
function FpDup(
 
  var oldfile: text;
 
  var new

Descripcion: Retorna un apuntador de archivo duplicado en el archivo descriptor fildes

La seguna y tercer formas, hacen un Nuevo archivo especificado por NewFile en una copia exacta el OldFile, despues de haber tenido que limpiar el buffer de OldFile en caso de que esta sea un archivo de texto o archivo que o fue tipeado.

La funcion regresa negativo en caso de error, y valores positivos en caso de que que el valor del apuntador de archivo sea correcto.

ERRORES:
Los valores negativos regresados pueden ser uno de los siguientes codigos de error

sys_ebadf --> OldFile no ha sido asignado

sys_emfile --> el numero maximo de archivos abiertos ha sido alcanzado.

Vea tambien:
fpDup2
Ejemplo:

program Example31;
 
{ Program to demonstrate the Dup function. }
 
uses baseunix;
 
var f : text;
 
begin
  if  fpdup (output,f)<>0 then
    Writeln ('Dup Failed !');
  writeln ('This is written to stdout.');
  writeln (f,'This is written to the dup file, and flushed');flush(f);
  writeln
end.