flag:=0;

while (flag=0) do
begin
flag:=1;
for j:=1 to cnt+1 do
begin
flag:=1;
for i:=1 to 2 do
if shannonfrm.StringGrid1.cells[i,j]='' then
begin
flag:=0;
break;
end;
end;
if (flag=1) then
break
else
messagedlg('请输入完全!',mtinformation,[mbOK],0);
end;