创建INI文件

最新推荐文章于 2020-12-10 08:13:15 发布

cg213

最新推荐文章于 2020-12-10 08:13:15 发布

阅读量439

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： ini string

本文链接：https://blog.youkuaiyun.com/cg213/article/details/5301341

Delphi 专栏收录该内容

2 篇文章

订阅专栏

//写入IniFile

function WriteIniFiles(Section: string; KeyName: string; KeyValue: string): Boolean;
var
MyIniFile: TiniFile;
begin
if (Section = '') or (KeyName = '') or (KeyValue = '') then
begin
Result := False;
exit;
end;
MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/Config.ini');
MyIniFile.WriteString(Section, KeyName, KeyValue);
MyIniFile.Free;
Result := True;
end;

---------------------------------------------------------------------------------------------------------------

//读IniFile

function ReadIniFiles(Section: string; KeyName: string; KeyValue: string): string;
var
MyIniFile: TiniFile;
begin
if (Section = '') or (KeyName = '') or (KeyValue = '') then
begin
Result := '';
exit;
end;
MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/Config.ini');
Result := MyIniFile.ReadString(Section, KeyName, KeyValue);
MyIniFile.Free;

end;