참 ..  너무 잘 됩니다.

freeman 님이 쓰신 글 :
: 바쁘실텐데, 시간을 내어 답을 주셔서 너무 감사 합니다.
: 앞으로도 많은 지도 편달 부탁드립니다. 꾸버.
:
: utime.김성하 님이 쓰신 글 :
: : 안녕하세요 utime.김성하입니다.
: :
: : 정답이 될 지 모르겠지만 저는 요렇게 사용합니다.
: : 그냥 참고만 하시길 바랍니다~ ^^*
: :
: : int     SelColNum = 1;
: : int     Ascend = 1;
: :
: : void __fastcall TForm1::ListView1ColumnClick(TObject *Sender,
: :       TListColumn *Column)
: : {
: :     SelColNum = Column->Index;
: :     Ascend    = -Ascend;
: :     ((TListView*)Sender)->AlphaSort();
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1,
: :       TListItem *Item2, int Data, int &Compare)
: : {
: :     AnsiString S1, S2;
: :     Compare = 0;
: :
: :     switch( SelColNum )
: :     {
: :         case 0:  // 숫자
: :                 S1.sprintf("%4d", Item1->Caption.ToInt());
: :                 S2.sprintf("%4d", Item2->Caption.ToInt());
: :             break;
: :         case 1 : // 숫자
: :                 S1.sprintf("%4d", Item1->SubItems->Strings[SelColNum-1].ToInt());
: :                 S2.sprintf("%4d", Item2->SubItems->Strings[SelColNum-1].ToInt());
: :             break;
: :         case 2 : // 문자열
: :                 S1 = Item1->SubItems->Strings[SelColNum-1];
: :                 S2 = Item2->SubItems->Strings[SelColNum-1];
: :             break;
: :         default :
: :             Compare = 0;
: :     }
: :     Compare = CompareText(S1,S2) * Ascend;
: : }
: : //---------------------------------------------------------------------------
: :
: :
: :
: : freeman 님이 쓰신 글 :
: : : ^^ 안녕하세요 리스트 뷰에서 컬럼헤더를 클릭시 소팅시 아래와 같은 코드에서는알파벳 순 소팅만
: : : 합니다. 특정  컬럼의 값이 숫자일 때는 OnCompare에서 어떻게 수정해야 하나요
: : : 여러 고수님의 고견을 부탁 드립니다.
: : :
: : : int SortByColumn = -1;      
: : : int SortOrder = 1;                                    
: : : //---------------------------------------------------------------------------------
: : : void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1,
: : :       TListItem *Item2, int Data, int &Compare)
: : : {
: : :
: : :     if(Data == 0)
: : :     {
: : :          if(Item1->Caption < Item2->Caption) Compare = -1;
: : :          else if(Item1->Caption > Item2->Caption) Compare = 1;
: : :          else Compare = 0;
: : :     }
: : :     else
: : :     {
: : :          if(Item1->SubItems->Strings[Data-1] < Item2->SubItems->Strings[Data-1]) Compare = -1;
: : :          else if(Item1->SubItems->Strings[Data-1] > Item2->SubItems->Strings[Data-1]) Compare = 1;
: : :          else Compare = 0;
: : :     }
: : :      Compare *= SortOrder;
: : :
: : : }
: : : //---------------------------------------------------------------------------
: : :
: : : void __fastcall TForm1::ListView1ColumnClick(TObject *Sender,
: : :       TListColumn *Column)
: : : {
: : :     if(SortByColumn == Column->Index) SortOrder *= -1; 
: : :     else SortOrder = 1;                                
: : :        ListView1->CustomSort(NULL, Column->Index);
: : :        SortByColumn = Column->Index;                      
: : :
: : : }
: : : //---------------------------------------------------------------------------