16,748
社区成员
发帖
与我相关
我的任务
分享
var temp :string;
temp := ini.ReadInteger(test, a, 1);
这个时候temp为11.
temp := ini.ReadInteger(test, d, 99);
这个时候temp为99.
ini.ReadInteger(节点名, 关键字, 缺省值);
//读取配置文件信息
procedure ReadConfig(var block, keys, values :Integer);
var
ini: TIniFile;
FileName: string;
begin
FileName := '文件路径/config.ini';
IniFile := ini.Create(FileName);
values := ini.ReadInteger(block, keys, values);
ini.Free;
end;
//调用读取ini
function getIniParam(var block, keys, values :String): Integer;
begin
ReadParam(block, keys, values);
Result := values;
end;
var
v1,v2,v3: Integer;
v1 := ReadParam('my_ver','v1','');
v2 := ReadParam('my_ver','v2','');
v3 := ReadParam('my_ver','v3','');
//读取配置文件信息
procedure ReadConfig(var block, keys, values :String);
var
ini: TIniFile;
FileName: string;
begin
FileName := '文件路径/config.ini';
IniFile := ini.Create(FileName);
values := ini.ReadString(block, keys, values);
ini.Free;
end;
//调用读取ini
function getIniParam(var block, keys, values :String): String;
begin
ReadParam(block, keys, values);
Result := values;
end;
var
v1,v2,v3: string;
v1 := ReadParam('my_ver','v1','');
v2 := ReadParam('my_ver','v2','');
v3 := ReadParam('my_ver','v3','');