1、在程序的exe下建立test.ini文件,文件内容如图所示:
2、新建一个按钮,并写入以下代码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles,StdCtrls; //首先要引用头文件:IniFiles;
//--------------------------------------------------
//以下东西无改动。
type
TForm1 = class(TForm)
btn_ReadIni: TButton;
procedure btn_ReadIniClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//以上东西无改动
//--------------------------------------------------
procedure TForm1.btn_ReadIniClick(Sender: TObject);
var
ZkyFileIni:TIniFile;//定义一个ini文件
ZkyIntIni:Integer; //用来存放ini上ZkyInt的值
ZkyStrIni:string;//用来存放ini上ZkyStr的值
ZkyIniAdd:string;//用来存放ini文件地址
begin
ZkyIniAdd:=GetCurren