如何才能生成一个象ｉｎｉ似的配置文件，让应用读里边的内容(50分)

B

biddles

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #1

我想在程序安装后，启动程序在ｅｄｉｔ控键内输入ｉｐ地址，之后
程序每次再启动的时候能够自动得到这个ｉｐ地址，是不是要生成一个ｉｎｉ文件，
因该怎么办？请各位赐教

 

N

netlogon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #2

Textlist:=Tstringlist.create;
Textlist.add(edit1.text);
Textlist.SaveToFile(ExtractFilePath(Application.ExeName)+'ip.ini');
程序每次再启动的时候:
Textlist.LoadFromFile(ExtractFilePath(Application.ExeName)+'ip.ini');

 

B

biddles

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #3

NewTextlist.SaveToFile(ExtractFilePath(Application.ExeName)+'ip.ini');
请问(ExtractFilePath(Application.ExeName)+'ip.ini')具体写ｄ盘下的ｉｐ．ｉｎｉ
该如何写

 

N

netlogon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #4

Textlist.SaveToFile('d:/ip.ini');

 

A

abc_xp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #5

定　注册表　也行

 

Z

zhousi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #6

uses inifiles
var myinifile: TInifile;
FileName:=ExtractFilePath(paramstr(0))+'Server.INI'; //目录
if FileExists(FileName) then
begin
try
MyInifile := TInifile.Create(FileName); //打开INI文件
ADOConnection1.ConnectionString:=MyIniFile.ReadString('ADOConnection', 'AdoStr',''); //读取连接字符串
finally
MyIniFile.Free;
end;
end;
if EditConnectionString(ADOConnection1) then //打开配置ado连接
begin
try
MyIniFile := TInifile.Create(filename);
MyIniFile.WriteString('ADOConnection', 'AdoStr', ADOConnection1.ConnectionString); //把配置结果写入ini文件
finally
MyIniFile.Free;
end;
end;

 

W

wy0311

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #7

uses inifiles
ini:tinifile;
ini:=tinifile.create(filename);
ini.writestring;
ini.writeinteger;
ini.writeboolean;
ini.readstring;
ini.readinteger;
……

 

C

Cardinal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #8

对，用ini 很方面的 我现在在程序中的一些初始化信息都是放在ini文件中的
很好操作的
具体方法如上 哈哈

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #9

建议全用 TINIFILE 。。

 

A

acheqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #10

注册表或者wy0311的答案都可以，我是用inifile,read,write都可以

 

B

biddles

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #11

谢谢各位，我的使用方法
　　 filename:='d:/aa.ini';
if fileexists(filename) then
begin

myinifile:=tinifile.Create(filename);
myinifile.WriteString('dir','dir',edit1.Text);
showmessage('youwenjian') ;
end
else
begin

filehandle:=filecreate(filename);
fileclose(filehandle);
myinifile:=tinifile.Create(filename);
myinifile.WriteString('dir','dir',edit1.Text);
myinifile.Free;
end;

 

B

biddles

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #12

多人接受答案了。