查人人中国名人网女生呕吐小说反胃干呕:Delphi 中，如何向一个文件中的某一行添加文字
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 07:02:18
请给一下具体的代码
举个例子
原文件内容为
123
123
123
123
我要在第三行插入11111
那么原文件变为
123
123
11111
123
请给一下这样的过程，谢了
举个例子
原文件内容为
123
123
123
123
我要在第三行插入11111
那么原文件变为
123
123
11111
123
请给一下这样的过程，谢了
可以利用Delphi提供的TStringList对象完成这个操作。
procedure InsertString(s:string;line:integer);
var StringList:TStringList;
Index:integer;
begin
StringList:=TStringList.Create;
StringList.LoadFromFile('文件');
Index:=StringList.Add(s);
StringList.Move(Index,line);
StringList.SaveToFile('文件');
StringList.Free;
end;
程序没调试过，大概就是这么个意思，你试试看。