Escrevendo um Log com Delphi

Olá,

se vc tem problemas com a criação de logs vai uma dica de como escrever um log e como mostra-lo em um componente memo.

adicione dois componentes ao seu form.

BtnGravar: TButton;//um botão
MemLog: TMemo;//um Memo

gere o evento clike do botão e coloque o texto conforme abaixo:

procedure TFrmLog.BtnGravarClick(Sender: TObject);
var
NomeDoLog: string;
Arquivo: TextFile;
begin
NomeDoLog := ‘c:\nome.txt’;
AssignFile(Arquivo, NomeDoLog);
if FileExists(NomeDoLog) then
Append(arquivo) { se existir, apenas adiciona linhas }
else
ReWrite(arquivo); { cria um novo se não existir }
try
WriteLn(arquivo, ‘Texto’);
WriteLn(arquivo, ‘——-‘);
finally
CloseFile(arquivo)
end;
MemLog.Lines.LoadFromFile(NomeDoLog  );
end;

teste o seu programa, se tudo estiver correto, seu projeto vai gerar um arquivo “nome.txt” em “c:”

e o seu conteudo do arquivo vai ser mostrado dentro do memo.

6 ideias sobre “Escrevendo um Log com Delphi

  1. Ailem

    Achei boa a idéia de tirar nossas dúvidas nesse blog, é bem melhor do que ficar procurando e testando tudo o que a gente vê nos fóruns e poucos ajudam e a gente perde muito tempo… aqui é bem mais objetivo!

    Resposta
  2. Francis JS

    Parabéns!
    Excelente qualidade de informações, um blog limpo e agradável de se navegar!
    Estou começando no Delphi e tem sido muito bom passar por aqui.
    Vida longa e suce$$0!

    Resposta
  3. Felipe Dias

    muito bom, como eu faria para adicionar uma ação de um certo usuario ?
    por exemplo – Felipe logado as(horario)
    felipe alterou o nome do usuario … etc

    Resposta

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s