delphi ini读写

最新推荐文章于 2025-03-20 10:42:24 发布

ozhy111

最新推荐文章于 2025-03-20 10:42:24 发布

阅读量151

点赞数

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/ozhy111/article/details/81481725

版权

delphi 专栏收录该内容

112 篇文章

订阅专栏

uses IniFiles;
//写
procedure TForm1.Button1Click(Sender: TObject);
var
ZkyFileIni: TIniFile;
ZkyIniAdd: string;
begin
ZkyIniAdd := GetCurrentDir + '\test.ini';
ZkyFileIni := TIniFile.Create(PChar(ZkyIniAdd));
ZkyFileIni.WriteString('ZkyJD_2', 'Zkykong', 'a123');
ZkyFileIni.free();
end;
//读
procedure TForm1.Button2Click(Sender: TObject);
var
ZkyFileIni: TIniFile;
ZkyStrIni: string;
ZkyIniAdd: string;
begin
Memo1.Lines.Clear;
ZkyIniAdd := GetCurrentDir + '\test.ini';
ZkyFileIni := TIniFile.Create(PChar(ZkyIniAdd));
ZkyStrIni := ZkyFileIni.ReadString('ZkyJD_2', 'Zkykong', 'ss');
Memo1.Lines.Add(PChar(ZkyStrIni));
ZkyFileIni.free();
end;