TList * Mydatelist;
ConvDate *DD;
try
{
Mydatelist =new TList;
//装入组件进入列表
Mydatelist->Add(RzURLLabel1);
Mydatelist->Add(RzURLLabel2);
Mydatelist->Add(RzURLLabel3);
Mydatelist->Add(RzURLLabel4);
Mydatelist->Add(RzURLLabel5);
Mydatelist->Add(RzURLLabel6);
Mydatelist->Add(RzURLLabel7);
Mydatelist->Add(RzURLLabel8);
//读取列表中的组件
((TRzURLLabel *)Mydatelist->Items[i])->Font->Color=clWhite ;
//显公历
((TRzURLLabel *)Mydatelist->Items[i])->Caption=AnsiString(LL);
}
__finally
{
delete Mydatelist;
Mydatelist=NULL;
}