unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

const
FilePath = 'C:\Temp\My.ini';

//写入 Ini 文件, 如果指定文件路径不存在会自动建立
procedure TForm1.Button1Click(Sender: TObject);
begin
WritePrivateProfileString('段1', 'Key1', '值1', PChar(FilePath));
WritePrivateProfileString('段1', 'Key2', '值2', PChar(FilePath));

WritePrivateProfileString('段2', 'Key1', '值1', PChar(FilePath));
end;

//把写入结果显示在 Memo 看看
procedure TForm1.Button2Click(Sender: TObject);
begin
if not FileExists(FilePath) then Exit;
Memo1.Lines.LoadFromFile(FilePath);
end;

//读取测试
procedure TForm1.Button3Click(Sender: TObject);
var
buf: array[Byte] of Char; {准备接受缓冲区}
begin
GetPrivateProfileString('段1', 'Key2', '默认值', buf, Length(buf), PChar(FilePath));
ShowMessage(buf);
end;

end.