敝人最近在寫一些測試FORM,程式片段如下,發現如果有500個 FORM,那不是很長,看起來很菜,
請問前輩,不知有否像FOXPROC 語法如(A) ,如有請告知,謝謝!
void __fastcall TForm0::N4001Click(TObject *Sender)
{
AnsiString Menu_Name =dynamic_cast(Sender)->Name;
int temp_n = StrToInt(Menu_Name.SubString(2,4));
TForm *fm;
switch(temp_n){
case 4001: fm = new TForm4001(this); break;
case 4002: fm = new TForm4002(this); break;
case 4003: fm = new TForm4003(this); break;
case 4004: fm = new TForm4004(this); break;
case 4005: fm = new TForm4005(this); break;
case 4006: fm = new TForm4006(this); break;
case 4007: fm = new TForm4007(this); break;
case 4008: fm = new TForm4008(this); break;
case 4009: fm = new TForm4009(this); break;
case 4010: fm = new TForm4010(this); break;
case 4011: fm = new TForm4011(this); break;
case 4012: fm = new TForm4012(this); break;
case 4013: fm = new TForm4013(this); break;
case 4014: fm = new TForm4014(this); break;
case 6001: fm = new TForm6001(this); break;
case 6002: fm = new TForm6002(this); break;
-------
}
fm->Show();
}
(A)
void __fastcall TForm0::N4001Click(TObject *Sender)
{
AnsiString Menu_Name =dynamic_cast(Sender)->Name;
int temp_n = StrToInt(Menu_Name.SubString(2,4));
char FormName[250];
memset(FormName,'\0',250);
sprintf(FormName,"TFormM(this)",temp_n);
TForm *fm;
fm= = new &FormName ;//foxpro 語法
fm->Show();
}