delphi - Delphi中清空字符串网格

Question

在Delphi中，是否有一种快速清空TStringgrid(包含超过5000行)的方法，同时也可以释放内存？

将行计数设置为 1，清空网格，但不释放内存。

提前致谢，

保罗

Answer 1

这应该取消初始化分配的字符串(来自存储行文本的字符串列表)。由于有很多行，因此清理是按列完成的。

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to StringGrid1.ColCount - 1 do
    StringGrid1.Cols[I].Clear;
  StringGrid1.RowCount := 1;
end;