本文整理自网络,侵删。
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.
相关阅读 >>
Delphi urldownloadtofile 支持进度条
Delphi xe增强的rtti妙用--动态创建包中的窗口类
Delphi xe5 json与Delphi object的互换
Delphi 为 service application 添加描述文本的方法
更多相关阅读请进入《Delphi》频道 >>