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.

Cadastro Empresarial

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

Numeros pitagoricos

Equação do segundo grau

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