|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
StringGridｿｽﾌ包ｿｽｿｽﾗ替ゑｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
shige 2007/01/22(ｿｽｿｽ) 22:56:54
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽD
StringGridｿｽﾌ包ｿｽｿｽﾗ替ゑｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽ闃ｸｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽLｿｽﾌゑｿｽ閧ｩｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽC
URL:http://madia.world.coocan.jp/delphi/delphi_bbs/200309_03090071.html
ｿｽｿｽｿｽlｿｽiｿｽｿｽｿｽｿｽｿｽjｿｽﾌ場合ｿｽCｿｽｿｽｿｽﾑ替ゑｿｽｿｽｿｽｿｽｿｽ閧ｭｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは，StringListｿｽﾅ包ｿｽｿｽﾑ替ゑｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽ轤ｾｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽﾉ良ゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽか？
ｿｽｿｽｿｽﾈゑｿｽDelphiｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽDｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽD
shige 2007/01/22(ｿｽｿｽ) 23:49:35
StringGridｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽﾄゑｿｽｿｽｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽPｿｽFStringGridｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽQｿｽFｿｽDｿｽ謔ｷｿｽｿｽｿｽ
ProcedureGridSort(Grid:TStringGrid;SortCol:Integer);
var
str_St1:TStringList;
str_St2:TStringList;
int_i:Integer;
begin
str_St1:=TStringList.Create;
str_St1.Assign(Grid.Cols[SortCol]);
forint_i:=1ToGrid.FixedRowsDo
str_St1.Delete(0);
forint_i:=0tostr_St1.Count-1do
str_St1.Strings[int_i]:=str_St1.Strings[int_i]+#1+Format('%.10d',[int_i]);
forint_i:=Grid.FixedRowstoGrid.RowCount-1dobegin
str_St2:=TStringList.Create;
str_St2.Assign(Grid.Rows[int_i]);
str_St1.Objects[int_i-Grid.FixedRows]:=str_St2;
end;
str_St1.Sort;
forint_i:=Grid.FixedRowstoGrid.RowCount-1dobegin
Grid.Rows[int_i].Assign(TStringList(str_St1.Objects[int_i-Grid.FixedRows]));
TStringList(str_St1.Objects[int_i-Grid.FixedRows]).Free;
end;
str_St1.Free;
end;
StringGridｿｽﾌ抵ｿｽｿｽgｿｽｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ包ｿｽｿｽﾑ替ゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽDｿｽDｿｽｿｽｿｽｿｽPｿｽｿｽﾚにゑｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽOｿｽｿｽ
[-2][A]
[2][D]
[-1][B]
[1][C]
ｿｽｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽ縺
[-2][A]
[-1][B]
[1][C]
[2][D]
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽD
TS 2007/01/23(ｿｽｿｽ) 07:59:14
ｿｽFｿｽXｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ文趣ｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽ骼
ｿｽ}ｿｽCｿｽiｿｽXｿｽﾌ趣ｿｽｿｽﾍ−ｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽｿｽ100000ｿｽｿｽvｿｽｿｽｿｽXｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ
-2->2,2->100002
shige 2007/01/24(ｿｽｿｽ) 01:12:59
ｿｽsｿｽrｿｽｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾅは以会ｿｽｿｽﾌようｿｽﾈ場合ｿｽCｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽOｿｽｿｽ
[-2][A]
[-1][B]
[0][C]
[1][D]
[2][E]
ｿｽｿｽｿｽｿｽｿｽﾍ−ｿｽｿｽｿｽｿｽC0ｿｽﾈ擾ｿｽｿｽ10ｿｽ足ゑｿｽｿｽｿｽﾆゑｿｽsｿｽｿｽｿｽｿｽ
[2][A]
[1][B]
[10][C]
[11][D]
[12][E]
ｿｽｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽ驕
[1][B]
[2][A]
[10][C]
[11][D]
[12][E]
ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾉ戻ゑｿｽｿｽｿｽ
[-1][B]ｿｽｿｽ-2ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈのゑｿｽ
[-2][A]ｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽD
[0][C]
[1][D]
[2][E]
ｿｽｿｽｿｽﾉ擾ｿｽ閧｢ｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽか？
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽD
shige 2007/01/24(ｿｽｿｽ) 01:34:45
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾉ考ｿｽｿｽｿｽﾄ，ｿｽﾈ会ｿｽｿｽﾌ趣ｿｽ@ｿｽﾅ趣ｿｽ闃ｸｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽ文趣ｿｽｿｽﾉ変奇ｿｽｿｽｿｽｿｽ骼
ｿｽ}ｿｽCｿｽiｿｽXｿｽﾌ趣ｿｽｿｽﾍ−ｿｽｿｽｿｽｿｽｿｽﾄ，(10-ｿｽ}ｿｽCｿｽiｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽl)ｿｽﾆゑｿｽｿｽｿｽD
ｿｽvｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽｿｽ10ｿｽｿｽvｿｽｿｽｿｽXｿｽｿｽｿｽｿｽ
-2->8,2->12
ｿｽｿｽｿｽﾌ値ｿｽﾅ包ｿｽｿｽﾑ替ゑｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
TS 2007/01/24(ｿｽｿｽ) 08:27:53
ｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽﾏでゑｿｽｿｽｿｽ
ｿｽ}ｿｽCｿｽiｿｽXｿｽﾉなる数ｿｽｿｽｿｽﾌ範囲ゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽSｿｽﾄの撰ｿｽｿｽﾉ＋100000ｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
-1->99999-2->999981->100001
ｿｽﾆにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾑ替ゑｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
shige 2007/01/24(ｿｽｿｽ) 13:11:54
ｿｽｿｽｿｽJｿｽﾈ回答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽD
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
