请问如何用代码更改ini文件中某小节的标题名？

Question

请问如何用代码更改ini文件中某小节的标题名？
如把[*开始]
    .
    .
改为
[开始]
 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
  S: string;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(ExtractFilePath(Application.Name) + 'Test.INI');
    S := SL.Text;
    I := Pos('[*开始]', S);
    if I > 0 then
    begin
      Delete(S, I, Length('[*开始]'));
      Insert('[开始]', S, I);
      SL.Text := S;
    end;
    SL.SaveToFile(ExtractFilePath(Application.Name) + 'Test.INI');
  finally
    SL.Free;
  end;
end;