高分求算法！

Question

一个纯文本数据，例如有1000行，要求行中数据变化，要求如下
第一个1-99行，添加一个字符0001表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。
第二个1-99行，添加一个字符0002表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。
第三个1-99行，添加一个字符0003表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。

Answer 1

用TStringList啦
var
  lStringList:TStringList;
  i:integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('文件名')//加載文本文件
    for i:= 0 to Count -1 do
      //Strings[0] //第一行 根據I值判斷,執行你的操作
  finally
    SaveToFile('文件名')
    Free;
  end;  
end;

Answer 2

一个纯文本数据，例如有1000行，要求行中数据变化，要求如下
第一个1-99行，添加一个字符0001表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。
第二个1-99行，添加一个字符0002表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。
第三个1-99行，添加一个字符0003表示，还要进行添加001-099变化字符。
并在100行添加一行，其中有两位用来累加上面1-99的字符。i:=1;
While Strs.Count<1000 do Begin
  nCount:=0;
  Strs.Add(FormatFloat('0000',i));      //加你那个标记
  inc(i);
  For j:=1 to 99 do Begin
    if strs.Count>1000 then Break;
    strs.Add(formatFloat('00',j)+' ');
    nCount:=nCount+j;
  End;
  Strs.Add('合计：'+Inttostr(nCount));
End;没测试，不直到怎样。