Buscar

Criando um arquivo de texto

Código

Procedure AddLog;
var
  log: textfile;
begin
  try
  AssignFile(log, 'c:log.log');
  if not FileExists('c:log.log') then Rewrite(log,'c:log.log');
  Append(log);
  WriteLn(log, 'informações a serem inclusas');
  finally
  CloseFile(log);
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 11/06/03
Por: Felipe Monteiro
Visualizada: 5974 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009