Question

一个delphi的菜鸟级问题，在线等

怎么获取窗口中的控件。然后循环判断是不是Edit
如果是Edit则判断 是否为空

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
for I := 0 to Form1.ControlCount - 1 do
begin
if (Form1.Controls[I] is TEdit) then
begin
if (Form1.Controls[I] as TEdit).Text = '' then
ShowMessage('检测到某个Edit为空')
else
ShowMessage((Form1.Controls[I] as TEdit).Text);
end;
end;
end;
ps:这个是以Form1为父窗口的控件沥遍，例如：如果是在Panel则需要二次循环检测。。

追问

遍历完之后，如果不为空就把值赋给数据库，如果为空，则不做修改。怎么做?edit有2个以上，而且每个edit对应的字段不一样

追答

那你就过Edit的Name属性判断呗
if (Form1.Controls[i] as TEdit).Name = 'xxx' then xxxx;