AppIni:=TIniFile.Create
ss:=AppIni.ReadString('vdsl','vdsl用户名','');
bb:=AppIni.ReadString('vdsl',wbnet密码','');
ss:=AppIni.ReadString('vdsl','vdsl用户名','');
bb:=AppIni.ReadString('vdsl',wbnet密码','');
解决方案 »
- 我的应用服务器现在终于稳定下来了!不过在Win2000下有问题。
- delphi提去以太网数据
- 江湖救急,在线等,小问题——如何拖动Panel上的一个Image
- 哪位大侠知道IDTCPSERVER控件的多线程是怎么实现的!当它接收到一个数据后怎么判断这个数据是属于哪一个线程的!
- 200分请较高手,关于小票打印问题
- [|]光盘的弹入弹出会触发什么消息?
- 客户端通过socketconnection1连接服务端RemoteDataModule,服务端很占cpu
- 请问我想在用户点击窗体右上角的关闭控制钮时,让用户确认是否真的关闭,应该怎么做??
- Delphi初学者问题之五(编程方式)
- 哪位大侠知道如何处理(全局注册表)的函数及有关资料?
- 怎样用语句使delphi连接sql?
- 求教SQL语句或存储过程——急!!!
一般是这样
[P]
Var1=Value1
Var2=Value2代码
var
AIniFile: TIniFile;
...
strTemp := AIniFile.ReadString('P', 'Var1', ''); //==>返回Value1
f:TIniFile;
user,psd:string;
begin
f:=TIniFile.Create('当前程序路径'+'dbini.ini');
user:=f.ReadString('state','vdsl','');
psd:=f.ReadString('state','wbnet','');
f.free;
end;别忘了uses IniFiles;
RegInfo
[stste]=state
[user]=vdsl
[password]=wbnet程序: SysINI:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'\sysinfo.ini');
username:=sysregini.ReadString('RegInfo', 'user', 'default string');
password:=sysregini.ReadString('RegInfo', 'password', 'default string');
SysINI.Free;注:Reginfo、[stste]、[user]、[password] 相当于书签明白了吧?
sysini.ini文件内容应如下:
[RegInfo]
stste=state
user=vdsl
password=wbnet程序: SysINI:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'\sysinfo.ini');
username:=sysregini.ReadString('RegInfo', 'user', 'default string');
password:=sysregini.ReadString('RegInfo', 'password', 'default string');
SysINI.Free;注:[Reginfo]相当于书签
stste、user、password是变量 明白了吧?
[state]
vdsl=ABC
wbnet=SDF123uses
...,IniFiles;var
TempIni:TIniFile; TempIni:=TIniFile.Create('Ini.ini');
UserName:=TempIni.ReadString('state', 'vdsl', 'default string');
password:=sysregini.ReadString('state', 'wbnet', 'default string');
SysINI.Free;
[state]
vdsl=ABC
wbnet=SDF123uses
...,IniFiles;var
TempIni:TIniFile; TempIni:=TIniFile.Create('dbini.ini');
UserName:=TempIni.ReadString('state', 'vdsl', 'default string');
password:=TempIni.ReadString('state', 'wbnet', 'default string');
TempIni.Free;
[state]
vdsl=ABC
wbnet=SDF123
abc
sdf123
如果不想别人使用记事本编辑该文件,哪只有设计自己的文件格式