« ☆Microsoft SQL Server 2005 Express Editionへの接続方法 | トップページ | ☆TabControlのDrag&Drop »

☆ListViewの項目並び替え

ListViewのカラムクリック時に項目の並び替えをするサンプルです。

// ソート用コールバック関数
function Sort(Item1,Item2: TListItem; Index: Integer): Integer; stdcall;
var
  S1, S2: String;
begin
  if Index = 0 then
    begin
      S1 := Item1.Caption;
      S2 := Item2.Caption;
    end
  else
    begin
      S1 := Item1.SubItems[Index-1];
      S2 := Item2.SubItems[Index-1];
    end;
  // 昇順  ascending order
  Result := AnsiCompareText(S1, S2);
  // 降順  descending order
  //Result := -Result;
end;     

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ListView1.CustomSort(@Sort, Column.Index);
end;

|

« ☆Microsoft SQL Server 2005 Express Editionへの接続方法 | トップページ | ☆TabControlのDrag&Drop »