邓
邓娟
Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位大哥：
我想把保存方案保存在INI文件中，但保存方案的数目不一定是多少，
在第二次启动时如何遍历把他们全部读出来？？？
谢谢！！！！
我想把保存方案保存在INI文件中，但保存方案的数目不一定是多少，
在第二次启动时如何遍历把他们全部读出来？？？
谢谢！！！！
憔
憔悴
Unregistered / Unconfirmed
GUEST, unregistred user!
最好你还是都保存起来，用不上可以为空嘛。
要不然你就把它当文本文件处理。
最后，不要用靓妹这样的词来吸引别人回答问题。
要不然你就把它当文本文件处理。
最后，不要用靓妹这样的词来吸引别人回答问题。
Y
yanghai0437
Unregistered / Unconfirmed
GUEST, unregistred user!
你在保存的时候肯定知道保存了多少,就把这个数写到ini文件中
第二次启动时去读这个数不就可以了
第二次启动时去读这个数不就可以了
R
Richard3000
Unregistered / Unconfirmed
GUEST, unregistred user!
名字也可以用變量啊
邓
邓娟
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢，最好有源程序。
但是方案有增有减，也有点复杂呀。
另外憔悴不要用怀疑一切的眼光来看问题，有时要失误的：）））[
!]
但是方案有增有减，也有点复杂呀。
另外憔悴不要用怀疑一切的眼光来看问题，有时要失误的：）））[
!]
S
shenloqi
Unregistered / Unconfirmed
GUEST, unregistred user!
TIniFile的ReadSections以及ReadSectionValues就可以了
P
panjf
Unregistered / Unconfirmed
GUEST, unregistred user!
用ReadSections、ReadSectionValues和ReadSection将所有的键和值读到StringList中，
然后循环遍历就是了
然后循环遍历就是了
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
我常用的方法,INI文件格式:
[SETUP]
NUMBER=3
A0=...
B0=...
C0=...
...
A1=...
B1=...
C1=...
...
A2=...
B2=...
C2=...
...
读时先读出NUMBER值，然后移可以用一循环来一个个读出了
for i := 0 to NUMBER - 1 do
begin
...
end
[SETUP]
NUMBER=3
A0=...
B0=...
C0=...
...
A1=...
B1=...
C1=...
...
A2=...
B2=...
C2=...
...
读时先读出NUMBER值，然后移可以用一循环来一个个读出了
for i := 0 to NUMBER - 1 do
begin
...
end
邓
邓娟
Unregistered / Unconfirmed
GUEST, unregistred user!
不错不错，谁有更好的办法呀？[!]
!]
雪
雪中漫步
Unregistered / Unconfirmed
GUEST, unregistred user!
简单说，你可以创建两个stringlist
一个放 section ,一个放value
下面是我用的一个例子(是从ini中读取所有的值，值是不固定的 )，你可以参考一下
fini:=Tinifile.Create(extractfilepath(application.exename)+'menu.ini');
s1:=Tstringlist.Create;
s2:=Tstringlist.create;
fini.ReadSections(s1);//读所有的section
for i:=0 to s1.Count-1 do
begin
aa:=treeview.Items.Add(nil,s1.Strings);
aa.ImageIndex:=0;
fini.ReadSection(s1.strings,s2);//读每个section下的value
for j:=0 to s2.Count-1 do
begin
bb:=treeview.Items.AddChild(aa,fini.ReadString(aa.Text,s2.Strings[j],''));
bb.ImageIndex:=1;
bb.EndEdit(true);
end;
end;
fini.Free;
一个放 section ,一个放value
下面是我用的一个例子(是从ini中读取所有的值，值是不固定的 )，你可以参考一下
fini:=Tinifile.Create(extractfilepath(application.exename)+'menu.ini');
s1:=Tstringlist.Create;
s2:=Tstringlist.create;
fini.ReadSections(s1);//读所有的section
for i:=0 to s1.Count-1 do
begin
aa:=treeview.Items.Add(nil,s1.Strings);
aa.ImageIndex:=0;
fini.ReadSection(s1.strings,s2);//读每个section下的value
for j:=0 to s2.Count-1 do
begin
bb:=treeview.Items.AddChild(aa,fini.ReadString(aa.Text,s2.Strings[j],''));
bb.ImageIndex:=1;
bb.EndEdit(true);
end;
end;
fini.Free;
D
dragonlee007
Unregistered / Unconfirmed
GUEST, unregistred user!
看看有多亮?
傳個照片,看看.
聊天?
mymsn:dragonlee007@hotmail.com
傳個照片,看看.
聊天?
mymsn:dragonlee007@hotmail.com
D
darzui
Unregistered / Unconfirmed
GUEST, unregistred user!
从一个固定的文本文件中读出每有多少个方案，方案文件保存在哪里，内容可以象下面这样
方案1 1.ini
方案2 2.ini
这个文件的读法应该是：
var
n: string[8];
f: string[10]
begin
AsignFile(Filename, 'Filename');
Reset(Filename);
while not eof(Filename) do
begin
Readln(Filename, n, f); //n就是方案名称，f是方案保存的文件名
.......
再从1.ini 2.ini .....中读取方案信息。
方案1 1.ini
方案2 2.ini
这个文件的读法应该是：
var
n: string[8];
f: string[10]
begin
AsignFile(Filename, 'Filename');
Reset(Filename);
while not eof(Filename) do
begin
Readln(Filename, n, f); //n就是方案名称，f是方案保存的文件名
.......
再从1.ini 2.ini .....中读取方案信息。
憔
憔悴
Unregistered / Unconfirmed
GUEST, unregistred user!
哦？我希望我失误了：）
上面的富翁们都已经回答得很完全了，MM的魅力果然大……
上面的富翁们都已经回答得很完全了，MM的魅力果然大……
C
commandor
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵
邓
邓娟
Unregistered / Unconfirmed
GUEST, unregistred user!
问题解决，雪中漫步的答案对我启发比较大，另外有几个大哥也尽了力，
憔悴这个人精过头了，不行。
憔悴这个人精过头了，不行。
邓
邓娟
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
憔
憔悴
Unregistered / Unconfirmed
GUEST, unregistred user!
噢，怎么会是精过头了呢？
我发现我其实是老实过头了，嘿嘿
我发现我其实是老实过头了，嘿嘿
邓
邓娟的妈
Unregistered / Unconfirmed
GUEST, unregistred user!
罗晓明
男
1978年生人
赣南师范学院毕业
2000年8月结婚
本是教师却不喜欢教书
有点好色，并相应有些变态心理。
上大学时曾经喜欢过一个叫邓娟的大学同学。
在大富翁的名称由此而来。
相貌丑陋，却经常用“小女子”、“美女”等词语装作美女来提问，欺骗大家。
男
1978年生人
赣南师范学院毕业
2000年8月结婚
本是教师却不喜欢教书
有点好色，并相应有些变态心理。
上大学时曾经喜欢过一个叫邓娟的大学同学。
在大富翁的名称由此而来。
相貌丑陋，却经常用“小女子”、“美女”等词语装作美女来提问，欺骗大家。
