cb028 「ListViewでデータ整理」（04/11/21 Sun）

ListViewを使うとExcelみたいな表が作れます。

ListViewはコンポーネントタブの「Win32」にあります。

これをフォームに貼り付けて、コードを書きます。

☆ListViewで表をつくる☆

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//表示を表形式にします
ListView1->ViewStyle = vsReport;
//項目を追加します
ListView1->Columns->Add()->Caption = "No";
ListView1->Columns->Add()->Caption = "名前";
ListView1->Columns->Add()->Caption = "点数";
ListView1->Columns->Add()->Caption = "評価";
//値を入れます
for(int i=0;i<5;i++)
{
ListView1->Items->Add()->Caption = i+1;
ListView1->Items->Item[i]->SubItems->Add("A" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("50" + IntToStr(i));
ListView1->Items->Item[i]->SubItems->Add("B" + IntToStr(i));
}

}

こんだけッス。注意点は、表示の形式をちゃんと指定すること。

これがわからなくて苦労しました(T▽T)

☆ListViewにCSVファイルからデータを読み込む☆

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString strPath = ExtractFilePath(Application->ExeName) + "test.csv";
//CSV読み込み用リスト
TStringList *lLine = new TStringList;
TStringList *lWord = new TStringList;
//表示を表形式にします
ListView1->ViewStyle = vsReport;
//項目を追加します
ListView1->Columns->Add()->Caption = "No";
ListView1->Columns->Add()->Caption = "名前";
ListView1->Columns->Add()->Caption = "点数";
ListView1->Columns->Add()->Caption = "評価";
//CSVファイルを読み込み
lLine->LoadFromFile(strPath);
//値を入れます
for(int i=0;i<lLine->Count;i++)
{
lWord->CommaText = lLine->Strings[i];
if(lWord->Count > 0)
{
ListView1->Items->Add()->Caption = i+1;
ListView1->Items->Item[i]->SubItems->Add(lWord->Strings[0]);
ListView1->Items->Item[i]->SubItems->Add(lWord->Strings[1]);
ListView1->Items->Item[i]->SubItems->Add(lWord->Strings[2]);
}
}
//開放
delete lLine;
delete lWord;

}

まぁそんなに変わりません。

ListViewは、フォーム作成時は、真っ白なので、「ホントに表か？」って思うんですが、

作ってみると、表になってます。ビックリ。