delphi stringgrid如何清空

stringgrid如何清空

var
i:integer;
begin
with StringGrid1 do for I := 0 to ColCount - 1 do Cols[I].Clear;
end;

//或

with StringGrid1 do for I := 0 to RowCount - 1 do Rows[I].Clear;

 //或

for i := 0 to vGrid.rowcount-1 do

    for j := 0 to vGrid.colcount-1 do

      vGrid.cells[j , i -] := '';