var Idx: Integer with StringGrid do begin Perform(WM_SETREDRAW, 0, 0); try for Idx := FixedRows to Rowcount - 1 do Rows[Idx].Clear; finally Perform(WM_SETREDRAW, 1, 0); Invalidate; end; end;
stringgird分为2维Tstrings类型,你要清除这样写 For I=0 to StringGrid.ColCount-1 do StringGrid.cols[I].clear;
Idx: Integer
with StringGrid do
begin
Perform(WM_SETREDRAW, 0, 0);
try
for Idx := FixedRows to Rowcount - 1 do
Rows[Idx].Clear;
finally
Perform(WM_SETREDRAW, 1, 0);
Invalidate;
end;
end;
For I=0 to StringGrid.ColCount-1 do
StringGrid.cols[I].clear;