Boa noite!
Use isso que funciona.
Adapte a suas necessidades.
procedure LogTxt(Const sFile:TFileName;Const sLinha:String);
var sLista:TStrings;
begin
sLista:=TStringList.Create;
if FileExists(sFile) then
sLista.LoadFromFile(sFile);
sLista.Add(sLinha);
sLista.SaveToFile(sFile);
end;
Forma de usar:
LogTxt('C:\DedoDuro.txt','Tecla delete pressionada em '+DateTimeToStr(Now));
Boa sorte.
Ulisses
----- Original Message -----
From: "Francisco Andrade" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, July 08, 2005 7:01 PM
Subject: Res: [delphi-br] Log em TXT
procure no google dicas delphi deephi, ele tem tudo o q vc precisa
-------Mensagem original-------
De: Wilson Valdevite
Data: 07/06/05 12:55:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Log em TXT
Galera, bom dia...
Estou com um probleminha meio chato...
Estou precisando criar um arquivo de log para pegar um usuário que anda
deletando registros em uma base de dados e pretendo gravar este log em um
arquivo .txt.
Quais os comandos para abrir, adicionar e salvar textos em arquivos textos?
Obrigado
Wilson
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
