我有一些大数据量的文本文件，想在第一行插入标题，怎么做最快？非常感谢

Question

我有一些大数据量的文本文件，想在第一行插入标题，怎么做最快？如文件为
aaaa
bbbb
xccc修改后为
1111
aaaa
bbbb
xccc请指点一下，谢谢

Answer 1

用TFileStream找开文件，然后将长度加所需要插入的行的长度(Size=Size+X)（记得要加上回车换车符的长度）=》将原来数据往后移动=》将指针移至开头(Position=0)，然后写入标题数据(Write)（记得写完后加入回车和换行符。

Answer 2

我在DELPHI 5环境下，不知道怎么做啊，help me

Answer 3

搞定了，先建一个标题文本文件，再Copy其他文件的内容过来就行了，很快
var
  F,F1:TFileStream;
begin
  F := TFileStream.Create('D:\Test.txt',fmOpenRead);
  F.Seek(0,0);
  F1 := TFileStream.Create('D:\2.txt',fmOpenWrite);
  F1.Seek(F1.Size,soFromBeginning);
  F1.CopyFrom(F,F.Size);
  F1.Free;
  F.Free;
  Showmessage('ok');