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.

Numeros pitagoricos

Funções de Manipulação de Arquivos Pascal

Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)

Criando Objetos 2

Cadastro Empresarial