保持原文件内容不丢失，又要在其中间插入一段数据，请问如何做到？？谢谢

Question

觉得这样很不方便啊。
要先把分开原文件，在新建，在copy。
有其他好方法么？

Answer 1

要么这样：
var sl:TStringList;sl := TStringList.Create;
sl.LoadFromFile('file');
sl.Text.Insert(...);
sl.SaveToFile('file');
sl.Free;

Answer 2

sl.Text.Insert 的方法可以定义插入位置么？？？

Answer 3

使用流的方法合并文件可以。
    TmpStream := TFileStream.Create(DefaultDir + FileName,fmCreate);
    TmpStream.Write(FileInfo[1],length(FileInfo));    DataStream := TFileStream.Create(DefaultDir +tmp.cds,fmOpenRead);
    TmpStream.CopyFrom(DataStream,DataStream.Size);
    DataStream.Free;
    TmpStream.Free;
这里是把一段字符串和一个数据文件进行合并。你的问题可以参照完成