怎么创建配置文件 **.ini? 我想用delphi做一个系统,做一个配置文件sys.ini作为用户登录时的认证文件,望大侠们帮帮忙!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses inifiles;var panini:tinifile; panini := TIniFile.Create('chddd.ini');//里面是文件路径 ini文件格式[conf]name=aaaother=bb读取ini文件使用Tinifile类 procedure TForm1.CardSetIni(Sender: TObject);//创建+写信息 var File_name: TIniFile; begin GetDir(0,AppPath); File_name:=TIniFile.Create(AppPath+'\Sys.ini'); Try File_name.WriteString('存储的小节名称','字段名称',ComboBox1.Text); File_name.WriteString('存储的小节名称','字段名称',Edit1.Text); File_name.WriteString('存储的小节名称','字段名称',ComboBox2.Text); File_name.WriteString('存储的小节名称','字段名称',ComboBox3.Text); finally File_name.Free; File_name:=nil; end;procedure TForm1.Create(Sender: TObject);//读文件内容var ini: TIniFile;begin GetDir(0,AppPath); ini:=TIniFile.Create(AppPath+'\Sys.ini'); try Configstr:=ini.ReadString('存储的小节名称','字段名称',''); finally ini.Free; end; 写了个函数,查询数据第一条记录 英语背单词的开发思路 DLEPHI 预编译指令 尋求ADO主從存儲、更新的最佳方案? 关于全局临时表修改记录的问题 delphi安装程序制作 师姐,来分了哦。 如何判断表中的某一个字段是空值的???????? 如何在OpenPicDialog中预览Gif图片? win2000下,dephi程序对并口操作受到警告. 关于在韩文XP下显示Delphi编写的中文程式的解决方法 各位大虾救命,兄弟郁闷了!
name=aaa
other=bb读取ini文件使用Tinifile类
procedure TForm1.CardSetIni(Sender: TObject);//创建+写信息
var
File_name: TIniFile;
begin
GetDir(0,AppPath);
File_name:=TIniFile.Create(AppPath+'\Sys.ini');
Try
File_name.WriteString('存储的小节名称','字段名称',ComboBox1.Text);
File_name.WriteString('存储的小节名称','字段名称',Edit1.Text);
File_name.WriteString('存储的小节名称','字段名称',ComboBox2.Text);
File_name.WriteString('存储的小节名称','字段名称',ComboBox3.Text);
finally
File_name.Free;
File_name:=nil;
end;
procedure TForm1.Create(Sender: TObject);//读文件内容
var
ini: TIniFile;
begin GetDir(0,AppPath);
ini:=TIniFile.Create(AppPath+'\Sys.ini');
try
Configstr:=ini.ReadString('存储的小节名称','字段名称','');
finally
ini.Free;
end;