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.

Visualizador de imagens feito no Lazarus

Numeros pitagoricos

Criando Objetos 2

Questionário em estatisticas em Pascal

Cadastro Empresarial