Fórum Arquivo TXT! URGENTE! #149037
24/03/2003
0
ola estou precisando criar um arquivo texto com informações de cada rotina tipo um arquivo de log so que tenho quer ir acrescentando linhas a cada rotina...
tipo assim...
conseguil fazer a rotina acrescenta ´deu certo´
nao conseguil acrescenta ´errado´
obrigado...
tipo assim...
conseguil fazer a rotina acrescenta ´deu certo´
nao conseguil acrescenta ´errado´
obrigado...
Zacca
Curtir tópico
+ 0
Responder
Posts
24/03/2003
Dor_poa
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)