如何在记事本的每一行的第9位增加字符20.急....用ＤＥＬＰＨＩ写出代码，谢谢大侠们

Question

例:220010120711191209AA
220009620711191210AA
220023570711191416AA
220014760711191500AA
220022900711191500AA
220022330711191500AA
220016830711191500AA
220007510711191500AA
  
在记事本中大约有5000行上面的数字,要在每行的第9位添加数字２０．用ＤＥＬＰＨＩ写出来．谢谢！！

Answer 1

var
  Tls:TStringList;
  I:Integer;
  S,S1,S2:String;  FileName:String;
begin
  FileName := '文件名，自己填写';
  Tls:=TStringList.Create;
  try
    Tls.LoadFromFile(FileName);
    for I := 0 to Tls.Count - 1 do
      begin
        S:=Tls.Strings[I];
        S1:=Copy(S,1,9);
        if Length(S)>9 then
          S2:=Copy(S,10,-1)
        else
          S2 := '';
        Tls.Strings[I] :=S1+'20'+S2;
      end;
    Tls.SaveToFile(FileName);
  finally
    Tls.Free;
  end;
end;

Answer 2

procedure InsertSubStrToTxtLine(FileName :string;SubStr :string;Index :Integer);
var StrList   :TStringList;
    LineIndex :Integer;
    DestStr   :string;
begin
  StrList :=TStringList.Create;
  try
    StrList.LoadFromFile(FileName);
    for LineIndex :=0 to StrList.Count-1 do
    begin
     DestStr :=StrList.Strings[LineIndex];
     Insert(SubStr,DestStr,Index);
     StrList.Strings[LineIndex] :=DestStr;
    end;
    StrList.SaveToFile(FileName);
  finally
   StrList.Free;
  end;
end;