如何向一个文本文件的特定行写入文本？在线等！解决后即给分！

Question

var
  F:Textfile;
  filename:String;
  SvrName:String;
  inifile:Tinifile;
begin
   inifile:=Tinifile.Create('c:\load\Ctais.ini');
   filename:=inifile.ReadString('datasource','path','C:\oracle\ora81\network\ADMIN\tnsnames.ora') ;
   SvrName:=inifile.ReadString('Server0','SvrName','');
   AssignFile(F,filename); 
   Append(F);   
   try
   Writeln(F,svrName);
   finally
   Closefile(F);    
end;
end；
这段代码只能在文件tnsnames.ora的末尾添加文本，如果我想在特定的行添加文本，并覆盖该行以有的文本，该如何作？

Answer 1

把文件读入TStrings,哈哈,想怎么操作就怎么操作

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  strList:TStringList;
begin
   strList:=TStringList.Create;
   try
     strList.LoadFromFile('d:\aa.txt');
     strList.Strings[2]:='第二行';
     strList.SaveToFile('D:\aa.txt');
   except
   end;
end;