Delphi StringGrid使用全书3

领测软件测试网

　　　hi := hi - 1;
　　　if (hi <= lo) then Break;
　end;
　if (hi <= lo) then
　begin {We’re done separating the items}
　　List[lo] := med_value;
　　Break;
　end;

　// Swap the lo and hi values.
　List[lo] := List[hi];
　inc(lo); {Look up from lo for a value >= med_value}
　while Compare(grid.cells[sortcol,List[lo]],
　　　　　 grid.cells[sortcol,med_value])<0 do
　begin
　　　inc(lo);
　　　if (lo >= hi) then break;
　end;
　if (lo >= hi) then
　begin　{We’re done separating the items}
　　lo := hi;
　　List[hi] := med_value;
　　break;
　end;
　List[hi] := List[lo];
end;
{Sort the two sublists}
Quicksort(Grid,List, min, lo - 1,sortcol,datatype);
Quicksort(Grid,List, lo + 1, max,sortcol,datatype);
end;

//datatype 0：按字符排序　1：按整型排序　2：按浮点型排序
procedure Sortgrid(Grid : TStringGrid; sortcol,datatype:integer);
var
i : integer;
tempgrid:tstringGrid;

文章来源于领测软件测试网 https://www.ltesting.net/