循环判断一组控件的状态？(20分)

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #1

看不出那里有问题：（
不允许edit有空的，但是有时候有的 edit为空窗体也关闭
procedure TSystemCfg.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to ComponentCount-1 do
if components is Tedit then
if Tedit(components).Text='' then
begin
showmessage('请完成填写配置信息');
break;
end
else
begin
inifile:=Tinifile.Create(s);
inifile.WriteString('主站名称','MainStation1',edit1.Text);
inifile.WriteString('主站名称','MainStation2',edit3.Text);
inifile.WriteString('主站名称','MainStation3',edit5.Text);
inifile.WriteString('IP地址','IP1',edit2.Text);
inifile.WriteString('IP地址','IP2',edit4.Text);
inifile.WriteString('IP地址','IP3',edit6.Text);
close;
end;
end;

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #2

procedure TSystemCfg.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to ComponentCount-1 do
if components is Tedit then
if Tedit(components).Text='' then
begin
showmessage('请完成填写配置信息');
exit;
end;

inifile:=Tinifile.Create(s);
inifile.WriteString('主站名称','MainStation1',edit1.Text);
inifile.WriteString('主站名称','MainStation2',edit3.Text);
inifile.WriteString('主站名称','MainStation3',edit5.Text);
inifile.WriteString('IP地址','IP1',edit2.Text);
inifile.WriteString('IP地址','IP2',edit4.Text);
inifile.WriteString('IP地址','IP3',edit6.Text);
close;
end;

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #3

接受答案了.