仓库管理软件版1楼: function Rini(Inifile: string; section: string; Key: string): string;
var
ini: TiniFile;
begin
try
ini := TiniFile.Create(ExtractFilePath(Application.ExeName) + Inifile);
result := ini.ReadString(section, key, ＇＇＇＇);
if Result <> ＇＇＇＇ then
Result := Decp(Result);//一个函数，可不管
//------------------------
ini.free;
except
ini.free;
end;
end;

function Decp(str: string): string;
var
Cipher: TDCP_rc4;
KeyStr: string;
begin
KeyStr := ＇＇06371BF0-BECC-4ADD-BD72-72D2D5DAB320＇＇;
Cipher := TDCP_rc4.Create(nil);
Cipher.InitStr(KeyStr, TDCP_sha1);
result := Cipher.DecryptString(str);
Cipher.Burn;
Cipher.Free;
end;

2楼: function Rini(Inifile: string; section: string; Key: string): string;
var
ini: TiniFile; //声明一个 ini 文件对象
begin
try
ini := TiniFile.Create(ExtractFilePath(Application.ExeName) + Inifile);
// 创建/打开一个 ini 文件
result := ini.ReadString(section, key, ＇＇＇＇);
//从里面读数据
// ini 文件里的 [] 是 section
// key 你应该知道了吧 ,第三个参数是在无法取得数据时用这个代替
if Result <> ＇＇＇＇ then
Result := Decp(Result);//一个函数，可不管
//------------------------
ini.free; //这个就不用说了吧
except
ini.free;
end;
end;


楼主你的代码很不规范 如进销存网络版

3楼: 我当初学 ini 文件时，觉得不好学，学会了，也没有什么了。
会了给点分，呵呵

4楼: function Rini(Inifile: string; section: string; Key: string): string;
var
ini: TiniFile;
begin
try
// 为变量ini与具体的文件应用程序目录下的Inifile建立联
// 系，然后，就可以通过变量ini，来读写IniFile.ini文件中的关
// 键字的值了。
ini := TiniFile.Create(ExtractFilePath(Application.ExeName) + Inifile);
// 从ini文件中返回包含key的字符串，当section, key不存在返回默认为＇＇＇＇
result := ini.ReadString(section, key, ＇＇＇＇);
if Result <> ＇＇＇＇ then
Result := Decp(Result);//一个函数，可不管
//------------------------释放
ini.free;
except
遇异常释放
ini.free;
end;
end;

5楼: function Rini(Inifile: string; section: string; Key: string): string;
var
ini: TiniFile;
begin
try
ini := TiniFile.Create(ExtractFilePath(Application.ExeName) + Inifile);
result := ini.ReadString(section, key, ＇＇＇＇);
if Result <> ＇＇＇＇ then
Result := Decp(Result);//一个函数，可不管
//------------------------
finally //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
ini.free;
end;
end;

6楼: 创建一个INI文件
读取INI文件里的字符 返回一个result字符串
然后释放[:D]

仓库管理软件版7楼: 创建一个INI文件对象
读取INI文件里的KEY字段的值 返回一个result字符串
if Result <> ＇＇＇＇ then
Result := Decp(Result);//一个函数，可不管
这里是用解码涵数得出正确的值返回

然后释放

8楼: result := ini.ReadString(section, key, ＇＇＇＇);
//参数为：小节，关键字，值
配置文件中是这样的：
[1]
data=10;
注意‘=’是在英文下的等号，不是用writestring等写进去的，可能会犯错

9楼: 楼上的都已经说完了 我加个plug.ini文件结构
[Plug]
DisPlayName=大写金额
DllFile=plug/dxje.dll
Explain＝将输入的数字转换为人民币大写金额书写方式

调用Rini(＇＇plug.ini＇＇,＇＇Plug＇＇,＇＇DisPlayName＇＇) 返回＇＇大写金额＇＇
调用Rini(＇＇plug.ini＇＇,＇＇Plug＇＇,＇＇sdfsdfsdfdsf＇＇) 返回＇＇＇＇

10楼: ini文件的读写还是很简单的