读取ini文件的求助! ( 积分: 50 )

  • 主题发起人 主题发起人 cb1997
  • 开始时间 开始时间
C

cb1997

Unregistered / Unconfirmed
GUEST, unregistred user!
[CONTROL]
HOME=ENABLE
HOMENAME=OraHome
NLS_LANG=AMERICAN_AMERICA.UTF8
;NLS_LANG=THAI_THAILAND.TH8TISASCII
PICTURE='SMARTLOGO.BMP'

[SYSTEM NAME]
HAINAN : HAINAN

以上是ini的文件内容
我读取 = 号后面的东西都可以读出来
可我现在想要 HAINAN : HAINAN 该如何读呀?
 
HAINAN : HAINAN 并不是标准INI格式,所以不能读。
你可以用 readsection 把整个段区的东西读出来,然后自己判断
 
var myinifile:Tinifile;
str:string;
begin
myinifile:=TiniFile.create('E:/Menucpg.ini');
myinifile.readsection('DEFAULT_SCHEMA',str);
end;

能否帮忙看一下,这样写那里不对
 
var myinifile:Tinifile;
str,HOME:string;
begin
myinifile:=TiniFile.create('E:/Menucpg.ini');
HOME:=myinifile.ReadString('CONTROL','home','');//读出ini中home的值,然后赋值给home变量,其他内容和这一样。
end;
 
dean_2008:
你哪个不是我要的
现在是
[SYSTEM NAME]
HAINAN : HAINAN
SYSTEM NAME 节点 下的HAINAN : HAINAN 不规范,而我就是想读取HAINAN : HAINAN的值出来!
 
顶一下。
 
用ini应该是不行的,用tstringlist读入,查找即可
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
TmpList : TStringList;
i : integer;
TmpStr : string;
begin
TmpList := TStringList.Create;
TmpList.LoadFromFile('c:/setup.ini');
for i := 0 to TmpList.Count -1 do
begin
if Pos('HAINAN : HAINAN',TmpList.Strings) > 0 then
begin
TmpStr := TmpList.Strings;
Break;
end;
end;
TmpList.Free;
end;
 
顶一下!~李翔鹏
 
to cb1997:

[SYSTEM NAME]
HAINAN : HAINAN
中的HAINAN : HAINAN
在INI文件中都不能当作关键字也不能当作值,不知道是通过什么方式写入INI文件中.
 

Similar threads

I
回复
0
查看
548
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部