Question

delphi 默认combobox选项。

我的主程序use一个pas文件 其中有一语句combobox1.ItemIndex:=combobox1.Items.IndexOf(DefaultStation);
然后我看主程序
var
ini:tinifile;
inifile,ip,database,user,pass,connstr:string;
begin
//读取ini文件
DefaultStation:='xxx;
inifile:=changefileext(application.ExeName,'.ini');
if fileexists(inifile) then
begin
ini:=tinifile.Create(inifile);
DefaultStation:=ini.ReadString('server','DftStn','xxx');
ip:=ini.ReadString('server','ip',.....);
database:=ini.ReadString('server','database','xxx');
user:=ini.ReadString('server','user','xx');
pass:=ini.ReadString('server','pass','xxx');
ini.Free;
ini文件里面没有combobox选项，怎么找也找不到默认选项放在哪里了。

Answer 1

DefaultStation:=ini.ReadString('server','DftStn','xxx');
这句不是？？如果ini文件中没找到设置信息，应该程序有个判断，上面读取内容为空的时候，默认生成什么

追问

if fileexists(inifile) then
begin
.......
end
else
begin
form1.ShowModal;
end;

追答

你打开程序下的.ini文件看看[server] ->[DftStn]这个节点中保存的应该就是，你这个程序意思是，判断配置文件.ini存在就读取，不存在，就直接显示，form1，如果那个ini是空的，，你就是form1程序查看代码，combobox初始化的内容