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);
private
{ Private declarations }
public
{ Public declarations }
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('段2','Key2','值2',PChar(FilePath));
WritePrivateProfileString('段3','Key3','值3',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('段2', 'Key2', '默认值', buf, Length(buf), PChar(FilePath));
ShowMessage(buf);
end;
end.
-------------------------------------------------------------------------------------------
Unit1.dfm
object Form1: TForm1
Left = 0
Top = 0
Caption = #23506#26143#19979#30340#35760#24518#65293'www.365dayup.cn'
ClientHeight = 196
ClientWidth = 327
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 185
Height = 193
Lines.Strings = (
'Memo1')
TabOrder = 0
end
object Button1: TButton
Left = 202
Top = 20
Width = 103
Height = 25
Caption = #20889#20837'Ini'#25991#20214
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 202
Top = 72
Width = 103
Height = 25
Caption = #30475#30475#20889#20837#32467#26524
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 202
Top = 120
Width = 103
Height = 25
Caption = #35835#21462'Ini'#25991#20214
TabOrder = 3
OnClick = Button3Click
end
end