Arquivo TXT! URGENTE!
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
Curtidas 0
Respostas
Dor_poa
24/03/2003
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;
GOSTEI 0