我拉了一個 TMainMenu 到 form ，並加入一個 TMenuItem Files
我希望動態產生 Files 下拉的內容
我利用 Files1->Clear()這個指令（主要是希望在新增前先將舊有的內容刪除）


[code cpp]
void __fastcall TForm1::Files1Click(TObject *Sender)
{
Files1->Clear()
for(int i=0;i<3;i ){
TMenuItem *NewItem =new TMenuItem(Files1);
NewItem->Caption=IntToStr(i);
Files1->Add(NewItem);
}
}
[/code]

但是一直失敗
最後我只能改用這種寫法（問題是我個人覺得這樣寫很失敗）先記下目前有幾個 item ，新增完之後再來刪除

[code cpp]
void __fastcall TForm1::Files1Click(TObject *Sender)
{
int j=Files1->Count;
for(int i=0;i<3;i ){
TMenuItem *NewItem =new TMenuItem(Files1);
NewItem->Caption=IntToStr(i);
Files1->Add(NewItem);
}
while(j){Files1->Delete(0);j--;}
}
[/code]