错误:List index out of bounds(0) 是什么意思啊?
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
TDateTime time=Now().CurrentDate();
AnsiString s_time=time.FormatString("yyyymmdd");
s_time=s_time.SubString(1,4)+"年"+s_time.SubString(5,2)+"月"+s_time.SubString(7,2)+"日";
int i_Week=DayOfWeek( Now().CurrentDate() );
AnsiString s_Week;
switch(i_Week)
{
case 1:
{
s_Week="星期天";
}break;
case 2:
{
s_Week="星期一";
}break;
case 3:
{
s_Week="星期二";
}break;
case 4:
{
s_Week="星期三";
}break;
case 5:
{
s_Week="星期四";
}break;
case 6:
{
s_Week="星期五";
}break;
case 7:
{
s_Week="星期六";
}break;
}
AnsiString s_Text="今天是:"+s_time+" "+s_Week;
StatusBar1->Panels->Items[0]->Text=s_Text;
运行时,出现错误:List index out of bounds(0) 是什么意思啊?