procedure TForm1.ListView12ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ListView12.Tag:=Column.Index;
ListView12.CustomSort(NULL,0);
end;

procedure TForm1.ListView12Compare(Sender: TObject; Item1,
Item2: TListItem; Data: Integer; var Compare: Integer);
var
id:Integer;
begin
if ListView12.Tag=0 then
Compare:=CompareText(Item1.Caption,Item2.Caption)
else
begin
id:=ListView12.Tag-1;
Compare:=CompareText(Item1.SubItems.Strings[id],Item2.SubItems.Strings[id]);
end;
if Data=1 then
Compare:=-Compare;
end;

[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;
}

用AlphaSort即可觸發OnCompare事件

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if TListView(Sender).Tag = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := TListView(Sender).Tag - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ListView1.Tag:=Column.Index;
ListView1.AlphaSort;
end;

我的日期格式是yyyy/mm/dd 在我排序時他是以text排的,我要怎樣才可以以日期排呢?

不懂你的意思

點Column Head時,它會依點擊的Column做排序,Column內容若是yyyy/MM/dd格式,經測試一樣可正常排序

問題我巳經解決啦 我用了comparedate去做就可以啦 ^^ 謝謝你的幫助