Loading...
定义一个从TStringGrid类继承的新类如下: type TMyGrid = class(TStringgrid); 之后,删除时:你可以这样写: T...
//排序函数//////////////////////////////////////////////procedure Quicksort(Grid:...