为空的意思是什么？包括标题吗？
Function IsStringGridEmpty(MyStringGrid:TStringGrid):Boolean;
var
i: integer;
begin
Result := True;
for i := 0 to MyStringGrid.RowCount - 1 do
begin
Result := Trim(MyStringGrid.Rows.Text) = '';
if not Result then Exit;
end;
end;
调用测试：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if IsStringGridEmpty(stringgrid1) then
showmessage('empty!')
else
showmessage('not empty!')
end;
建议写成这样：
Function IsStringGridEmpty(MyStringGrid:TStringGrid):Boolean;
var
i, j: integer;
begin
Result := false;
with MyStringGrid do
for i := FixedCols to ColCount - 1 do
for j := FixedRows to RowCount - 1 do
if Cells[i,j] <> '' then Exit; //有需要也可以加 Trim()函数
Result := true;
end;
