如何在delphi中修改文本文件

Question

如何在delphi中修改文本文件中某行的内容，例如：查找某行内容为“aaa”，修改它为“ggg”，请给出例子，谢谢

Answer 1

var
  liTemp: integer;
begin
  liTemp := 0;
  with TStringList.Create do
  begin
    try
      LoadFromFile(Your File);
      for liTemp := 0 to Count - 1 do
      begin
        if Strings[liTemp] = 'aaa' then
          Strings[liTemp] := 'ggg';
      end;
      SaveToFile(Your File);
    finally
      Free;
    end;
  end;
end;

Answer 2

var 
    liTemp:   integer; 
begin 
    liTemp   :=   0; 
    with   TStringList.Create   do 
    begin 
        try 
            LoadFromFile(Your   File); 
            for   liTemp   :=   0   to   Count   -   1   do 
            begin 
                if   Strings[liTemp]   =   "aaa "   then 
                    Strings[liTemp]   :=   "ggg "; 
            end; 
            SaveToFile(Your   File); 
        finally 
            Free; 
        end; 
    end; 
end;