傻猫日志 Samool.com

//排序函数//////////////////////////////////////////////
procedure Quicksort(Grid:TStringGrid; var List:array of integer;

min, max,sortcol,datatype: Integer);

{List is a list of rownumbers in the grid being sorted}
var
med_value : integer;
hi, lo, i : Integer;

function compare(val1,val2:string):integer;
var

int1,int2:integer;
float1,float2:extended;
errcode:integer;

begin

case datatype of
  0: result:=ANSIComparetext(val1,val2);
  1: begin
       int1:=strtointdef(val1,0);
       int2:=strtointdef(val2,0);
       if int1>int2 then result:=1
       else if int1<int2 then result:=-1
       else result:=0;
     end;

  2: begin
       val(val1,float1,errcode);
       if errcode<>0 then float1:=0;
       val(val2,float2,errcode);
       if errcode<>0 then float2:=0;
       if float1>float2 then result:=1
       else if float1<float2 then result:=-1
       else result:=0;
     end;
   else result:=0;
end;

end;

查看更多内容...