Código
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009