很多浏览文件的软件都有最近浏览和最多浏览的文件记录, 请问这个记录多次浏览文件的怎么实现呢?主要是文件特别多!只想保留访问最多的前30条记录?怎么实现呢?
解决方案 »
- 如何将这段C++代码,转换成delphi代码
- 做一下需求分析:如果你需要一個理財的軟件(只限個人和家庭用戶),你希望有哪些功能?需要做成哪一種類型?
- 关于rave的问题,紧急!!
- cxGrid 问题 有用过的请进!!!!!!!!!!!!!
- 图像合成!
- 这个问题在大富翁放了2天了竟然没有一个人会,看这样子还得....
- 在线等,如何在窗体中画一条直线??
- 各位大哥大姐请你们来评个理,UP给分
- 请问用什么方法可以把自已的信息放到搜索引擎上去让别人搜索到 ?
- 怎么做一个引导程序?
- 如何写TDataSource控件中OnDataChange事件!
- fast report 打印,从表分栏 分列显示?具体请看贴子吧,求助
大概就是用个TStringList程序开始里从注册表或ini里读取历史记录,供程序中快捷打开使用。
程序中打开文件后
在list里查找是否有该文件,如有则删之再加之;如没有则直接加之;如果list的count>30则删除第0行(新近的顶出最老的)
将list中的数据写入注册表或ini
按楼上说的,用本地文件记录一下就OK了。
下面是读写Ini文件的代码,希望有用。
function ReadIni(PathName:string;ParName: string; KeyName: string ):string;
var
MyIni: TIniFile;
begin
MyIni := TIniFile.Create(PathName);//调用的文件名
try
Result :=MyIni.ReadString(ParName, KeyName, '');//取得字符
finally
MyIni.Free;
end;
end;procedure WriteIni(PathName:string;ParName: string; KeyName: string; KeyValue: string );
var
MyIni: TIniFile;
begin
MyIni := TIniFile.Create(PathName);//调用的文件名
try
MyIni.WriteString(ParName, KeyName, KeyValue);//取得字符
finally
MyIni.Free;
end;
end;