delphi中ini配置文件（Inifile）使用方法

最新推荐文章于 2020-06-30 16:15:46 发布

老码伏枥驿站

最新推荐文章于 2020-06-30 16:15:46 发布

阅读量5.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 开发工具文章标签： ini配置文件 Inifile ini使用方法

本文链接：https://blog.youkuaiyun.com/jean852001/article/details/43760591

Delphi 开发工具专栏收录该内容

6 篇文章

订阅专栏

本文介绍如何在程序中使用ini文件来存储和读取配置信息，包括创建新文件、判断文件存在与否、写入配置和读取配置等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses
inifiles;

//创建新文件
Procedure NewFile(FileName:String;Text:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建一个新的文件并命名为 ek.txt}
Writeln(F,Text);
Closefile(F); {关闭文件 F}
End;

procedure TForm1.Button1Click(Sender: TObject);
var
inifile:TInifile;
iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
//获取当前程序的路径
sAppPath:=ExtractFilePath(Application.ExeName);
iniFileName:=sAppPath+'testset.ini';

inifile:=TInifile.Create(iniFileName);
//判断ini文件是否存在（不存在则创建）
if not FileExists(pChar(iniFileName)) then
begin
NewFile(iniFileName,'[TESTSET]');
//写配置信息
inifile.writeString('TESTSET','DLGOPENIMGDIR',sAppPath+'Pictures');
inifile.writeString('TESTSET','DLGOPENMICDIR',sAppPath+'Music');
end ;
//读取配置信息
sImageDir:=inifile.readString('TESTSET','DLGOPENIMGDIR','');
sMusicDir:=inifile.readString('TESTSET','DLGOPENMICDIR','');
end;