初学者请教 如何使用TStringList操作文件，谢谢！(100分)

初学者请教 如何使用TStringList操作文件，谢谢！

主要用到TSTINGLIST的SAVETOFILE和LOADFROMFILE

我写了一个小DEMO，你看一下，D2006写的，D7以上应试可以打开
http://hs.hbfdc.com.cn/images/count/TSTringlistOp.rar

用OpenDialog和SaveDialog控件实现文件的打开和保存，下面的程序只用了OpenDialog控件，保存也是很简单的
procedure TForm1.RzButtonEditTempPath1ButtonClick(Sender: TObject);
var
filename:string;
tips:tstringlist;
begin
OpenDialog1.Execute;
if trim(OpenDialog1.FileName)<>'' then
RzButtonEditTempPath1.Text := OpenDialog1.FileName;
filename:= OpenDialog1.FileName;
tips:=tstringlist.create;
tips.loadfromfile(filename);
//tips.loadfromfile('filename.txt');
RzEdit1.text:=tips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;
end;

var
StringList:TStringList;
begin
StringList.LoadFromFile('c:/d.dat');

var StringList:TStringList;
begin
StringList := TStringList.Create;
StringList.LoadFromFile('c:/d.dat');
...
StringList.Free;
end;

接受答案了.