procedure TForm1.Button1Click(Sender: TObject);
resourcestring
aa='错误1';
bb='错误2';
begin
if edit1.Text='' then
raise Exception.CreateRes(@aa);
if edit2.Text ='' then
raise Exception.CreateRes(@bb);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,n:integer;
s1:string;
begin
i:=form1.ControlCount;
if i>0 then
begin
for j:=0 to i-1 do
begin
if form1.Controls[j].ClassName='TEdit' then
begin
s1:=(form1.Controls[j] as TEdit).Name;
n:=strtoint(copy(s1,5,1));
if (form1.Controls[j] as Tedit).Text='' then
begin
showmessage('错误'+inttostr(n)+':不能为空');
end;
end;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,n:integer;
s1:string;
begin
i:=form1.ControlCount;
if i>0 then
begin
for j:=0 to i-1 do
begin
if form1.Controls[j].ClassName='TEdit' then
begin
s1:=(form1.Controls[j] as TEdit).Name;
n:=strtoint(copy(s1,5,1));
if (form1.Controls[j] as Tedit).Text='' then
begin
showmessage('错误'+inttostr(n)+':不能为空');
end;
end;
end;
end;
end;