var l:TStringlist;
begin
  l:=TStrinlist.create;
  try
    l.loadfromfile(filename);
    n:=l.indexof(str);  // 找尋此字串, 應依你的條例修改 
    if n >= 0 then
      l[n]:=str;
    else 
      l.add(str);
    l.savetofile(filename);
  finally
    l.free;
  end;
end; 

引言: 寫之前要判斷此行資料是否存在此檔案中,如果存在就更新那行資料 存在之條例為何, 若是完全相同又何必更新? 大致可如此,設str為要加入之字串

var l:TStringlist;
begin
  l:=TStrinlist.create;
  try
    l.loadfromfile(filename);
    n:=l.indexof(str);  // 找尋此字串, 應依你的條例修改 
    if n >= 0 then
      l[n]:=str;
    else 
      l.add(str);
    l.savetofile(filename);
  finally
    l.free;
  end;
end; 

如果你的檔定為 xxx=yyy如ini檔之型式, 可藉由TStringlist之name, value array幫忙, 搜尋時較為方便

var l:TStringlist;
begin
  l:=TStringlist.create;
  try
    l.loadfromfile(filename);
    l.values[namestr]:=valuestr;
//此行, 自己會去找是否=左邊有 namestr, 有改變其右邊為valuestr, 沒有自動加一行
    l.savetofile(filename);
  finally
    l.free;
  end;
end;