请大家帮忙解决一下.(很简单的,绝对是送分)

Question

for I := 1 to 4 do
begin
  if Tedit(findcomponent('edit' +inttostr(i))).text = '' then
  begin
    showmessage('edit' + inttostr(i) 输入为空');
  end;
end;

Answer 1

同意 tikkypeng(千两狂死郎)　

Answer 2

呵呵，好办：procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to componentcount-1 do
  if components[i] is Tedit then
     if Tedit(components[i]).text='' then
        application.messagebox('文本框有空，不能保存!','不能保存！',mb_iconinformation+mb_ok);
end;

Answer 3

cobi(我是小新，我只有5岁)的方法可行！

Answer 4

for i:=0 to componentcount-1 do
begin
  if (components[i] is tedit) then
   if (components[i] as tedit).text='' then
    showmessage('edit' + inttostr(i) 输入为空');
end;

Answer 5

to cobi(我是小新，我只有5岁):
我解决问题时是一一添加的,但是在保存时想添加楼上的代码,应该放在什么地方?
if bool then begin     //bool是再按"退出"按钮时不显示showmessage
if trim(sl_edt.text)='' then
begin
showmessage('你没有输入数量!!!');
sl_edt.SetFocus;
end;
end; 

Answer 6

对不起,我的服务器有问题,太慢了.
我保存的是向sql中保存,通过table1