StringGrid排序/隔行变色

//排序函数//////////////////////////////////////////////
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;

begin
{If the list has <= 1 element, it's sorted}
if (min >= max) then Exit;
{Pick a dividing item randomly}
i := min + Trunc(Random(max - min + 1));
med_value := List[i];
List[i] := List[min]; { Swap it to the front so we can find it easily}
{Move the items smaller than this into the left
half of the list. Move the others into the right}
lo := min;
hi := max;
while (True) do
begin
// Look down from hi for a value < med_value.
while compare(Grid.cells[sortcol,List[hi]]
,grid.cells[sortcol,med_value])>=0 do
(ANSIComparetext(Grid.cells[sortcol,List[hi]]
,grid.cells[sortcol,med_value])>=0 do
)
begin
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;
list:array of integer;
begin
screen.cursor:=crhourglass;
tempgrid:=TStringgrid.create(nil);
with tempgrid do
begin
rowcount:=grid.rowcount;
colcount:=grid.colcount;
fixedrows:=grid.fixedrows;
end;
with Grid do
begin
setlength(list,rowcount-fixedrows);
for i:= fixedrows to rowcount-1 do
begin
list[i-fixedrows]:=i;
tempgrid.rows[i].assign(grid.rows[i]);
end;
quicksort(Grid, list,0,rowcount-fixedrows-1,sortcol,datatype);
for i:=0 to rowcount-fixedrows-1 do
begin
rows[i+fixedrows].assign(tempgrid.rows[list[i]])
end;
row:=fixedrows;
end;
tempgrid.free;
setlength(list,0);
screen.cursor:=crdefault;
end;

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
NewColor:TColor;
begin
{ Randomize();
NewColor:=RGB(Random(255),Random(255),Random(255));
self.StringGrid1.Canvas.Brush.Color:=NewColor;
self.StringGrid1.Canvas.FillRect(Rect);
self.StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,self.StringGrid1.Cells[ACol,ARow]);
}
with StringGrid1.Canvas do //隔行着色
begin

if (ARow mod 2=0) and (ARow>1) and(ACol>0) then
begin
Brush.Color:=clInfoBk;
end
else
begin
if ACol=0 then Brush.Color:=cl3DLight else
Brush.Color:=clWhite;
end;
if ARow=0 then Brush.Color:=cl3DLight;

font.color:=clBlack;
FillRect(Rect);
textout(Rect.left,Rect.top,StringGrid1.Cells[ACol,ARow]);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
i,j:Integer;
begin //初始货
adotable1.First;
StringGrid1.RowCount:=adotable1.RecordCount+1;
StringGrid1.ColCount:=adotable1.FieldCount+1;
for i:=0 to adotable1.RecordCount-1 do
begin
for j:=0 to adotable1.FieldCount-1 do
begin
StringGrid1.Cells[j+1,0]:=adotable1.Fields.Fields[j].FieldName;
StringGrid1.Cells[0,i+1]:=IntToStr(i+1);
if adotable1.Fields.Fields[j].Value=null
then StringGrid1.Cells[j+1,i+1]:=''
else StringGrid1.Cells[j+1,i+1]:=adotable1.Fields.Fields[j].Value;
end;
adotable1.Next;
end;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
c:integer;
w:integer;
Grid:TStringGrid;
begin //单击排序
Grid := Sender as TStringGrid;
with Grid do
if y<=rowheights[

end;

end.

Posted in 软件开发 by 傻猫 at July 4, 2016.
Tags: none

添加新评论