菜鸟问题！！不好意思，来接分吧！！

Question

如果stringgrid里面的所有单元格为空的话flag_full:=false;若只要有一个不为空flag_full:=true
怎么判断？？？

Answer 1

var
  i,j:integer;
  flag_full:boolean;
begin
  for i:=1 to StringGrid1.RowCount -1 do
    for j:=1 to  StringGrid1.ColCount -1 do
    begin
      if StringGrid1.Cells[j,i]<>'' then
      begin
        flag_full:=true;
        break;
      end;
    end;
end;

Answer 2

你用一个循环判断所有的单元格，如果碰到一个为空的就
flag_full:=true；
var
  i,k:integer;
  flag_full:boolean;
begin
  for i:=0 to stringgrid1.RowCount do
      for k:=0 to  stringgrid1.ColCount  do
          begin
            if stringgrid1.Cells[k,i]<>'' then
               begin
                 flag_full:=true;
                 exit;
               end;
            end;
  end;