[ Avançar ]

Objetivo:
Associa a saída de dados a um arquivo-texto, ou melhor, torna-a como um arquivo-texto.

Exemplo:

Uses CRT;

Var  f: Text;

Begin

   Write('Saida na tela ou impressora [T, I]?');

   if UpCase(ReadKey) = 'I' Then Assign(f, 'PRN') { Saída de dados na Impressora }

   else                     Then AssignCrt(f);    { Usa rotinas rápidas de CRT }

   Rewrite(f);

   WriteLn(f, 'Saída de dados via rotinas CRT'); 

   Close(f);

   ReadLn;

End.

[ Avançar ]