Aqui mostro algumas funções para se manipular aquivo texto.

• Download arquivo_texto.pas
• Enviar nova versão

Esconder código-fonte

program arquivo_texto;

var
  Arquivo: Text;

begin
  Assign(Arquivo,'/home/daniel/arquivo.txt');
  Rewrite(Arquivo);
  Writeln(Arquivo, 'Teste de escrita em arquivo');
  Close(Arquivo);
end.

[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda

Cadastro Empresarial

Criando Objetos 2

Questionário em estatisticas em Pascal

Numeros pitagoricos