利用Tstringlist对文件流进行处理(介绍extractfilepath(),savetofile(),loadfromfile()使用)

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