这篇博客介绍了如何利用TStringList结合extractfilepath()函数获取应用路径，以及savetofile()和loadfromfile()方法进行数据的写入和读取。首先，通过示例展示了如何获取当前运行目录路径，并将数据写入到TStringList，然后保存到txt文件。接着，演示了如何读取该txt文件内容并显示在Memo组件上。完整代码提供了清晰的操作步骤。
1：获取当前运行目录路径
2：写入数据到Tstringlist (连续写入5行记录)
3：数据保存到txt文件
定义全局变量：
txtString:TStringLsit;
点击事件：
var
ApplicationPath:string;
i:integer;
begin
ApplicationPath:=ExtractFilePath(Application.exename);
iftxtString=nil then
txtString:=TStringList.create;
fori:=0 to 4 do begin
txtString.add('1,2,3,4,5');
end;
txtString.savetofile(Application+'/abc.txt');
end;
---------------读取abc.txt中文件内容------------
定义全局变量：
txtString:TStringLsit;
点击事件：
var
ApplicationPath:string;
i:integer;
begin
ApplicationPath:=ExtractFilePath(Application.exename);
iftxtString=nil then
txtString:=TStringList.create;
txtstring.loadfromfile(Application+'/abc.txt');
fori:=0 to 4 do begin
memo1.text:=txtString.strings[i];
end;
end;
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/htsoftware/archive/2010/06/24/5690840.aspx
扫一扫
674
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
