|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
StringGridｿｽﾌ撰ｿｽｿｽlSort
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ester 2005/05/31(ｿｽｿｽ) 12:46:09
StringGridｿｽﾌ撰ｿｽｿｽlSortｿｽｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽCustomSortｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｻｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽH
procedureTForm1.GridSort(Sg:TStringGrid;SortCol:Integer);
varSt1,St2:TStringList;
i:Integer;
SortCompare:TStringListSortCompare;
begin
St1:=TStringList.Create;
ST1.Assign(Sg.Cols[SortCol]);
Fori:=Sg.FixedRowsToSg.RowCount-1DoBegin
St2:=TStringList.Create;
St2.Assign(Sg.Rows[i]);
St1.Objects[i-Sg.FixedRows]:=St2;End;
St1.CustomSort(SortCompare);
Fori:=Sg.FixedRowsToSg.RowCount-1DoBegin
Sg.Rows[i].Assign(TStringList(St1.Objects[i-Sg.FixedRows]));
TStringList(St1.Objects[i-Sg.FixedRows]).Free;End;
St1.Free;
end;
//------------------
functionTForm1.SortCompare(St:TStringList;Index1,
Index2:Integer):Integer;
varV1,V2:integer;
begin
V1:=StrToInt(St[Index1]);
V2:=StrToInt(St[Index2]);
ifV1=V2thenresult:=0
elseifV1>V2thenresult:=1
elseresult:=-1;
end;
deldel 2005/05/31(ｿｽｿｽ) 12:56:24
ｿｽﾌ、ｿｽｿｽｿｽｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽlｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽせｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが・ｿｽEｿｽE
procedurepGdColSort(Gd:TStringGrid;ColNo:integer;boUpDown:Boolean);
{
Gd:ｿｽﾎ象グｿｽｿｽｿｽbｿｽhｿｽｿｽ
ColNo:ｿｽﾎ象暦ｿｽ
boUpDown:ｿｽｿｽｿｽｿｽ(True)ｿｽ‾ｿｽｿｽ(False)
}
var
SL:TStringList;
r:integer;
begin
SL:=TStringList.Create;
try
SL.Sorted:=False;
forr:=0toGd.RowCount-1dobegin
SL.Add(Gd.Cells[ColNo,r]+','+Gd.Rows[r].CommaText);
end;
SL.Sorted:=True;
forr:=0toGd.RowCount-1dobegin
ifboUpDownthen
//ｿｽｿｽｿｽｿｽ
Gd.Rows[r].CommaText:=Copy(SL[r],Pos(',',SL[r])+1,255)
else
//ｿｽ‾ｿｽｿｽ
Gd.Rows[r].CommaText:=Copy(SL[Gd.RowCount-1-r],Pos(',',SL[Gd.RowCount-1-r])+1,255);
end;
finally
SL.Free;
end;
end;
ester 2005/06/01(ｿｽｿｽ) 11:53:34
deldelｿｽｿｽｿｽｿｽAｿｽfｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾈ鯉ｿｽｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽせｿｽｿｽ
SL.Add(rightstr('********'+Gd.Cells[ColNo,r],6)+','+Gd.Rows[r].CommaText);
ｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ}ｿｽCｿｽiｿｽXｿｽlｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
deldel 2005/06/01(ｿｽｿｽ) 12:53:27
ｿｽｿｽｿｽIｿｽ}ｿｽCｿｽiｿｽXｿｽlｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽ}ｿｽCｿｽiｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆソｿｽ[ｿｽgｿｽｿｽｿｽﾏになゑｿｽﾜゑｿｽｿｽﾋゑｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽﾉ＋ｿｽｿｽtｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽiｿｽLｿｽwｿｽMｿｽGｿｽj
ｿｽｿｽｿｽｿｽｿｽﾉは会ｿｽ閧ｻｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽGｿｽG
Basser 2005/06/01(ｿｽｿｽ) 14:55:58
>StringGridｿｽﾌ撰ｿｽｿｽlSortｿｽｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽｿｽｿｽｿｽCustomSortｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｻｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽH
TStringListSortCompareｿｽﾍ手続ｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾅゑｿｽｿｽB
>functionTForm1.SortCompare(St:TStringList;Index1,
>Index2:Integer):Integer;
ｿｽｿｽLｿｽﾍｿｽｿｽ¥ｿｽbｿｽhｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾅ手続ｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾆは費ｿｽﾝ奇ｿｽｿｽﾌ為、ｿｽGｿｽｿｽｿｽ[ｿｽﾆなゑｿｽﾜゑｿｽｿｽB
ｿｽﾚゑｿｽｿｽｿｽｿｽﾍヘｿｽｿｽｿｽvｿｽﾌ手続ｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
ester 2005/06/01(ｿｽｿｽ) 17:25:03
functionSortCompare(St:TStringList;Index1,Index2:Integer):Integer;
ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽMｿｽdｿｽｿｽsuggestionｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
