算譜とドリア

TListViewのソート方法については、ヘルプのコード例を見てもいまいち分からなかったので整理してみる。(Style:vsReportの場合)。
まだ正確に把握しきってない可能性はあるが…。

まず、ListViewでは以下の３方法のSortが可能。
　stText…いわゆる文字列ソート。ListItemのCaption順にソートする
　stData…ListItemに格納されたDataを比較する
　stBoth…上記両方でソート(たぶん)

1.stSort

これは単純。TListViewのSotrTypeプロパティにstTextを指定するだけ。コードを書く必要はない。

2.stData

こっちは、事前にListItemのDataプロパティに何かの値をセットしておく必要がある。
たとえばクラスのポインタとか。

実例として、各ItemのDataが、intメンバを持つクラスのポインタを保有している場合。(エラー処理は省略)

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,
		  TListItem *Item2, int Data, int &Compare)
{
	Compare = Item1->Data->getValue() - Item2->Data->getValue();
}

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,

TListItem *Item2, int Data, int &Compare)

{

Compare = Item1->Data->getValue() - Item2->Data->getValue();

}

Compoare値が0より大きいか小さいか、でソート順が決まる。

3.stBoth

ここがちょっと分かりにくいパターン。
基本的に、まずデータを比較し、同じ場合はTextを比較するという手順を踏む(たぶん)
コード例。

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,
		  TListItem *Item2, int Data, int &Compare) 

{
	Compare = Item1->Data->getValue() - Item2->Data->getValue();
	// Dataの値が同じ時だけ、Itemのキャプションを比較
	if( !Compare )
	{
		Compare = CompareText( Item1->Caption, Item2->Caption );
	}
}

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,

TListItem *Item2, int Data, int &Compare)

{

Compare = Item1->Data->getValue() - Item2->Data->getValue();

// Dataの値が同じ時だけ、Itemのキャプションを比較

if( !Compare )

{

Compare = CompareText( Item1->Caption, Item2->Caption );

}

4.実行時にTSortTypeを変えたい場合

アプリケーションのオプション設定等でSortTypeを変更したい場合は、ちょっと面倒。
ここで気になるのがListViewのOnCompareイベントの引数
　int Data
とは何だろうってこと。
ヘルプをざっと見た限りだと、こういう事らしい。
　Data == 0 なら、stTextかstNone
　Data != 0 なら、stDataかstBoth

ということで、仮に実行時にSortTypeを変更し、反映したい場合は、以下のようなコードになるはず。

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,
		  TListItem *Item2, int Data, int &Compare)
{
	// stNoneでも、ListItemの変更があると呼ばれる(らしい)ので、ここではねる
	if( ListView->SortType == TSortType::stNone )
		return;

	// stTextならCaption文字列を比較
	if( !Data ) // SortType == stText:
	{
		Compare = CompareText( Item1->Caption, Item2->Caption );
	}
	// SortTypeにデータ要素がある場合
	else // SortType == stData or stBoth:
	{
		// まずDataの持つ値を比較
		Compare = Item1->Data->getValue() - Item2->Data->getValue();

		// Data値が同じで、かつstBothの場合は、Captionの文字列を比較
		if( !Compare && ListView->SortType == TSortType::stBoth )
		{
			Compare = CompareText( Item1->Caption, Item2->Caption );
		}
	}
}

void __fastcall TForm1::ListViewCompare(TObject *Sender, TListItem *Item1,

TListItem *Item2, int Data, int &Compare)

{

// stNoneでも、ListItemの変更があると呼ばれる(らしい)ので、ここではねる

if( ListView->SortType == TSortType::stNone )

return;

// stTextならCaption文字列を比較

if( !Data ) // SortType == stText:

{

Compare = CompareText( Item1->Caption, Item2->Caption );

}

// SortTypeにデータ要素がある場合

else // SortType == stData or stBoth:

{

// まずDataの持つ値を比較

Compare = Item1->Data->getValue() - Item2->Data->getValue();

// Data値が同じで、かつstBothの場合は、Captionの文字列を比較

if( !Compare && ListView->SortType == TSortType::stBoth )

{

Compare = CompareText( Item1->Caption, Item2->Caption );

}

うーん、このコードだと、そもそも引数のDataを利用する必要がないような…。
もっとスマートな方法がある気がする。

C++BuilderでTListViewをStyle:vsReportで使用している場合、Group名順に並び替えるには、GoupItemのIndexプロパティを変更するだけでいい。(GroupViewプロパティはTrue)

以下のコードでは、std::mapにGroup名とTListGroup(のポインタ)を格納して、自動的に名前順に並び替えている。

#include <map>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	std::map<String,TListGroup*> HeaderGroupMap;
	for( int i = 0; i < ListView->Groups->Count; ++i )
	{
		TListGroup* Group = ListView->Groups->Items[i];
		HeaderGroupMap[Group->Header] = Group;
	}
	int index = 0;
	for( auto it = HeaderGroupMap.begin(); it != HeaderGroupMap.end(); ++it )
	{
		it->second->Index = index++;
	}
}

#include <map>

void __fastcall TForm1::Button1Click(TObject *Sender)

{

std::map<String,TListGroup*> HeaderGroupMap;

for( int i = 0; i < ListView->Groups->Count; ++i )

{

TListGroup* Group = ListView->Groups->Items[i];

HeaderGroupMap[Group->Header] = Group;

}

int index = 0;

for( auto it = HeaderGroupMap.begin(); it != HeaderGroupMap.end(); ++it )

{

it->second->Index = index++;

}

なお、このサンプルでは、名前のないGroupが先頭に来てしまう。名前のないGroupを最後にするには、Indexを明示的に付けなけれぱＯＫ。自動的に最後になる。(正確に言うと自動的にカウントアップされたIndexが割り振られる)

	for( auto it = HeaderGroupMap.begin(); it != HeaderGroupMap.end(); ++it )
	{
		if( !it->second->Header.IsEmpty() )
			it->second->Index = index++;
	}

for( auto it = HeaderGroupMap.begin(); it != HeaderGroupMap.end(); ++it )

{

if( !it->second->Header.IsEmpty() )

it->second->Index = index++;

}

以下、蛇足。

Indexプロパティって何？

ListViewにGroupを動的に追加する場合、GroupIDは自分で設定するけど、Indexは特に指定しない。
Indexプロパティは、GroupがAddされるたびに自動的に連番で振られる(らしい)。
ちなみに以下のようにループを回すと、GroupID順でなくIndex順にアクセスされる。(GroupID順だと思い込んでバグったことがある)

for( int i = 0; i < ListView->Groups->Count; ++i )
{
	TListGroup* Group = ListView->Groups->Items[i];
}

for( int i = 0; i < ListView->Groups->Count; ++i )

{

TListGroup* Group = ListView->Groups->Items[i];

}

なおIndexを指定する場合、ダブりを気にする必要はない。

つまり

グループ0	Index = 0
グループ1	Index = 1
グループ2	Index = 2

この「グループ2」のIndexを0に変更すると、以下のように全グルーブのIndexが割り振り直される。

グループ0	Index = 1
グループ1	Index = 2
グループ2	Index = 0

なので、Groupの最後を先頭に持ってくるのは以下のコードですむ。

if( ListView->Groups->Count > 1 )
{
	ListView->Groups->Items[ListView->Groups->Count-1]->Index = 0;
}

if( ListView->Groups->Count > 1 )

{

ListView->Groups->Items[ListView->Groups->Count-1]->Index = 0;

}

（なお”Group->Count-1″を超えるIndexを指定すると例外が投げられる。）

ここらへん、TListGroupsの継承元のTCollectionクラスあたりの仕様を把握していると直感的に分かるのかもしれないけど、ちょっと苦労した。

Windows7(64bit)/C++Builder Berlin(Update1)で確認

算譜とドリア

TListViewのItemをソートする３方法［Vcl］

1.stSort

2.stData

3.stBoth

4.実行時にTSortTypeを変えたい場合

TListViewをGroup名順に並び替える［Vcl］

Indexプロパティって何？