ListView.CustomSort的問題 |
尚未結案
|
sikchun
一般會員 發表:5 回覆:7 積分:2 註冊:2006-07-05 發送簡訊給我 |
procedure TForm1.ListView12ColumnClick(Sender: TObject; procedure TForm1.ListView12Compare(Sender: TObject; Item1, [Error] Unit1.pas(1126): Incompatible types: 'Calling conventions differ' 有沒有大大可以幫忙呀!謝謝
以上是我把以下c 語言轉為delphi語言時出現的問題! 1. 將ListView之SortType設為stBoth 2. ColumnClick時 void __fastcall TForm1::ListView1ColumnClick(TObject *Sender, TListColumn *Column) { ListView1->Tag = Column->Index;//將選擇之column index寫入Tag ListView1->CustomSort(NULL,0); //執行sort , 0為升冪1為降冪 } //--------------------------------------------------------------------------- 3. 於 onCompare void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1, TListItem *Item2, int Data, int &Compare) { if (ListView1->Tag == 0) //選first column直接用caption Compare = CompareText(Item1->Caption, Item2->Caption); else { int id =ListView1->Tag-1; //取得要sort之subitem之index Compare = CompareText(Item1->SubItems->Strings[id],Item2->SubItems->Strings[id]); } if (Data==1) //若是要Descending Compare = -Compare; } |
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
用AlphaSort即可觸發OnCompare事件 procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; procedure TForm1.ListView1ColumnClick(Sender: TObject; |
sikchun
一般會員 發表:5 回覆:7 積分:2 註冊:2006-07-05 發送簡訊給我 |
|
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
|
sikchun
一般會員 發表:5 回覆:7 積分:2 註冊:2006-07-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |