delphi6.0中的系统跟踪？

[viaboy]

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

[viaboy]

thanks

[IORILI]

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

[IORILI]

给你个例子，供参考，
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文件，操作时进行写文件