请问如何实现记录用户登陆、操作、退出等情况并保存成Log文件？

Question

如题  
 
用户登陆的时候通过一个很简单的Access数据库验证进入系统，表里只有user和password两个字段.  
 
请高手赐教啊~谢谢啦：）

Answer 1

procedure RecordLog(Log: string);
var
  f: Textfile;
  FileName: string;
begin
  FileName := 'c:\a.log';
  AssignFile(f, FileName);
  try
    if FileExists(FileName) = False then
      Rewrite(f)
    else
    begin
      Reset(f);
      Append(f);
    end;
    Writeln(f, FormatDateTime('yyyy-mm-dd hh:nn:ss ', Now) + Log);
  finally
    CloseFile(f);
  end;
end;RecordLog('用户登陆');

Answer 2

用操作Text的方法来实现，Delphi帮助中示例：
var
  F1: TextFile;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
      Write(F2, '登录成功');
    CloseFile(F1);
  end;
end;
每次用Append方法
var
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'I am appending some stuff to the end of the file.'); 
    CloseFile(f);
  end;
end;