Delphi中如何清空字符串网格，变成长尾词？

本文共计202个文字，预计阅读时间需要1分钟。

在Delphi中，没有一种快速清空TStringGrid（包含超过5000行）的方法，同时还能释放内存。将rowcount设置为1，清空网格内容但不释放内存。感谢保罗，这应该取消初始化分配的字符串（从存储行文）。

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

将rowcount设置为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;