如何编写日志？

Question

大家好：
     想问大家一下，如何编写日志？
     来记录操作员在电脑上的各种操作？
     我是一个新手，最好有详细的过程！！
      多谢大家了！！
      多谢！

Answer 1

写一个日志函数，需要写日志时就调用，给你一个例子：
procedure TMainFrm.LogFile(name: string;  FilePrefix: string);
var
  logFile: string;
  f: TextFile;
begin
  try
    logFile := sPath  + FormatDateTime1('yyyy', Now) + '.txt';
    AssignFile(f, logFile);
    if FileExists(logFile) then
      Append(f)
    else
      Rewrite(f);
    Writeln(f, '[' + FormatDateTime1('yyyy-mm-dd hh:nn:ss', Now) + '] '+ ' + name);
    Flush(f);
    CloseFile(f);
  except
  end;
end;

Answer 2

'Hello'就是要保存的东西procedure TForm1.Button1Click(Sender: TObject);
var
  FileName:TextFile;
begin
  if not FileExists('f:\log.txt') then
  begin
    AssignFile(FileName,'f:\log.txt');
    Rewrite(FileName);
    CloseFile(FileName);
  end
  else
  begin
    AssignFile(FileName,'f:\log.txt');
    Append(FileName);
    Writeln(FileName,'Hello');
    Flush(FileName);
    CloseFile(FileName);
  end;
end;