var
Myini:TIniFile;
db:String;
begin
Myini:=TIniFile.Create('c:\DB.ini');
db:=Myini.ReadString('ADO','DB',db);
ADOConnection1.ConnectionString:=db;
Myini.Free;
end;
Myini:TIniFile;
db:String;
begin
Myini:=TIniFile.Create('c:\DB.ini');
db:=Myini.ReadString('ADO','DB',db);
ADOConnection1.ConnectionString:=db;
Myini.Free;
end;
解决方案 »
- 在delphi中如何把两个表链接起来?
- delphi中用一button实现当前dbgrid中查询出的数据导出到excel中
- 我用access做三层,可是用clientdataset1.locate无法定位中文条件,总是返回false?请各位大侠相助。
- 如何解决网络连接异常报错(大家帮忙)
- 求教:怎样才能使发送速度变快?
- 请问各位高手如何在多媒体软件中实现左右声道的控制?
- 如何编写一个程序,让本地硬盘的某个目录执行完全共享???
- 很菜的问题!Winsock有关!
- Midas.dll 如何才能正确加载(火急! 来看看啊
- 还是那个问题,高手们再来一次!
- 这个怎么解决?高手看过来!我在线等待!
- 要抓狂了,请大家快帮忙:.chm 用什么打开?
T:=TIniFile.Create('FileName');
T.ReadString('Section','Key','Value');
T.WriteString('Section','Key','Value');
...
T.Free;
var sysini:Tinifile;
begin
sysini:=Tinifile.create(thefilepath+'\XX.ini');
result:=sysini.readstring(thesection,thekeyname,'');
sysini.free;
end;procedure writeinfotosysini(thesection,thekeyname,thefilepath,thevalue:string);
var
sysini:Tinifile;
beign
sysini:=Tinifile.create(thefilepath+'\xx.ini');
sysini.writestring(thesection,thekeyname,thevalue);
sysini.free;
end;
//说明:
ini格式 :[insys]
aaa=3
//调用时thesection=‘insys’,thekeyname=‘aaa'
用TINIFile类
use IniFiles;
...
var TheIni:TIniFile;
begin
TheIni:=TiniFIle.Creatte('路径+文件名');
try
//读
abool:=TheIni.ReadBool...
aInt:=TheIni.ReadInteger... //写
Theini.writebool...
Theini.writeinteger..
finally
theini.free;
end; 自己看帮助吧
end;
var sysini:Tinifile;
begin
sysini:=Tinifile.create(thefilepath+'\XX.ini');
result:=sysini.readstring(thesection,thekeyname,'');
sysini.free;
end;procedure writeinfotosysini(thesection,thekeyname,thefilepath,thevalue:string);
var
sysini:Tinifile;
beign
sysini:=Tinifile.create(thefilepath+'\xx.ini');
sysini.writestring(thesection,thekeyname,thevalue);
sysini.free;
end;
//说明:
ini格式 :[insys]
aaa=3
//调用时thesection=‘insys’,thekeyname=‘aaa'
var
MyIni:TInifile;
使用它之前首先要和一个具体的Ini文件连接起来。可以用MyIni:=TInifile.Create()函数。如果这个文件不存在,则创建它,如果已经存在,则打开它。
连接上一个ini文件之后,就可以对它进行读和写的操作了。具体的函数我忘了,但主要用到的有这么几个:ReadString,ReadInteger,ReadBool,WriteString,WriteInteger,WriteBool,等等。(但愿没写错名字)你可以在Delphi中查一下Tinifile,会看到详细的说明的。