c++ builder > Delphi TList of records

構造体をTListで扱いたい。

http://stackoverflow.com/questions/5797368/delphi-tlist-of-records
にdelphi版はある。

これを参考に実装中。

と思ったけど、昔のコードが見つかったので貼っておく。

void __fastcall TForm1::btnAddClick(TObject *Sender)
{
	if (m_lstData == NULL) {
		m_lstData = new TList();
	}
	data_t data;

	data.fval = 123.0;
	data.str = "TEST";

	m_lstData->Items[0]->fval = fval;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	if (m_lstData != NULL) {
		delete m_lstData;
		m_lstData = NULL;
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnDispClick(TObject *Sender)
{
	data_t *data;
	for(int i=0; i<m_lstData->Count; i++) {
		data = (data_t *)m_lstData->Items[i];
		int nop=1;	// for breakpoint
	}
}
//---------------------------------------------------------------------------