在DELPHI中,请教如何在处理数据时把相应的内容写入到一个ini的文件中 ,也就是能够处理过程记录到日志文件中呢?多谢!有没有例子呢?
解决方案 »
- record类型的数据如何转成字节数组?
- D7 中我想实现用易个线程给ListBox中写系统运行日志?如何实现??我写的代码不知道那里有问题
- 图表统计问题, 急!!!
- 菜鸟求救:刚刚下载了<xpMenu3.0>在DELPHI中不知道怎么安装使用,在线等待!
- 菜鸟的问题:数据类型不匹配的问题
- 请教一个简单的查询语句!在线等猴!!
- (十万火急)RPC服务器无法使用?
- 高难题,新手勿入,如何在浏览器显示数据库中WORD数据
- WHO CAN HELP ME? 更改BLOB字段出错...
- 有关installshield和database的问题
- Qreport报表制用时,QRDBText只能显示单行文本,为什么没有DBmemo控件,显示不完哪! 郁闷.
- DateTimePicker控件只取出时间来,并存入access表的 日期/时间 字段中,怎么写代码?
其实写文本文件也可以。
写ini文件主要可以这样:
uses IniFiles;//参数为:ini文件路径+名称,标题,关键字,写入的内容
function iniWrite(filename,title,keyword,content:string):boolean;
var
myinifile:TInifile;
begin
try
myinifile:=TInifile.Create(filename);
myinifile.WriteString(title,keyword,content);
iniWrite := true;
except
iniWrite := false;
end;
end;btw:日志文件最好是写到txt中!
ini 和 reg 是存放配置信息的。
procedure WriteLog(Date,Event: String);
var
MyLogFile: TextFile;
begin
if FileExists('Data\Data.log') then
begin
AssignFile(MyLogFile,'Data\Data.log');
Append(MyLogFile);
try
Writeln(MyLogFile,INI_UserName+' ---- '+Date+' ---- '+Event);
finally
CloseFile(MyLogFile);
end; end
else
begin
AssignFile(MyLogFile,'Data\Data.log');
Rewrite(MyLogFile);
try
Writeln(MyLogFile,INI_UserName+' ---- '+Date+' ---- '+Event);
finally
CloseFile(MyLogFile);
end; end;
end;