delphi6.0中的系统跟踪？

Question

在delphi6.0做的系统中，我想记录在此系统中每一步所做的操作，有什么好办法？

Answer 1

读文件，然后写文件，就像程序初始化时读ini文件那样，只不过进行操作时，把所做操作写回去就ok了

Answer 2

给你个例子，供参考，
procedure Tsysshezhi.Button1Click(Sender: TObject);
begin
 IniFile:=tinifile.Create(datamodule2.GetIniFilePath);
 if (trim(edtaddress.Text)='') and (trim(ftpaddress.Text)='') then
 begin
 inifile.Free;
 end else begin
//写
 if trim(edtaddress.Text)<>'' then
 inifile.WriteString('sever_ip','sever',trim(edtAddress.Text));
 if trim(ftpaddress.Text)<>'' then
 inifile.WriteString('ftp_sever','ftp_ip',trim(ftpaddress.Text));
//读
  ser_ip:=IniFile.ReadString('sever_ip', 'sever', '');
  user_name:=inifile.readstring('user_name','default_name','');
  user_pw:=inifile.readstring('user_pw','default_pw','');
  dbname:=inifile.readstring('dbname','database','');
  ftp_ip:=inifile.readstring('ftp_sever','ftp_ip','');
  IniFile.Free;
end;
开始的时候，先读ini文件，操作时进行写文件