开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：4k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdlib.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::ReadMenuFile(AnsiString fname)
  18. {
  19.   TFileStream *sm;
  20.   int ii,nn;
  21.   TMenuItem *mitem,*curitem;
  22.   AnsiString name,value;
  23. //清除菜单
  24.   nn=MainMenu1->Items->Count;
  25.   for(ii=0;ii<nn;ii++)
  26.     delete MainMenu1->Items->Items[ii];
  27. //读取菜单文件
  28.   try
  29.   {
  30.     sm=new TFileStream(fname,fmOpenRead); //以只读方式打开文本菜单文件
  31.     mitem=MainMenu1->Items;
  32.     curitem=mitem;
  33.     for(;;) //循环读取文件内容
  34.     {
  35.       name=ReadName(sm); //读取Name=Value格式的Name
  36.       value=ReadValue(sm); //读取Name=Value格式的Value
  37.       if((name=="")||(name=="End"))break; //如果读到了结束代码，跳出循环
  38.       name=name.UpperCase(); //将Name全变为大写字符
  40.       if(name=="MENU") //菜单代码
  41.       {
  42.         value=value.UpperCase();
  43.         if(value=="MAIN") //是主菜单吗
  44.         {
  45.           curitem=MainMenu1->Items;
  46.         }
  47.         else if(value=="SUBMENU") //是子菜单吗
  48.         {
  49.           curitem=mitem;
  50.         }
  51.         else if(value=="EXITSUB") //该退出子菜单吗
  52.         {
  53.           curitem=curitem->Parent;
  54.         }
  55.         else{}
  56.       }
  57.       else if(name=="NAME") //是菜单名称吗
  58.       {
  59.         mitem=new TMenuItem(this); //新建一个菜单项
  60.         mitem->Caption=value;
  61.         curitem->Add(mitem); //加入当前菜单项中
  62.       }
  63.       else if(name=="KEY") //是键值吗
  64.       {
  65.         mitem->Tag=atoi(value.c_str()); //用菜单项的Tag属性保存
  66.         mitem->OnClick=MItemClick; //让每一菜单项的Click事件指向同一操作
  67.       }
  68.       else if(name=="ALIAS") //菜单项的别名
  69.       {
  70.         mitem->Caption=value;
  71.       }
  72.       else if(name=="VISIBLE") //菜单项可见吗
  73.       {
  74.         mitem->Visible=False;
  75.       }
  76.       else if(name=="ENABLED") //菜单项激活吗
  77.       {
  78.         mitem->Enabled=False;
  79.       }
  80.       else{}
  81.     }
  82.   }
  83.   __except(EXCEPTION_EXECUTE_HANDLER)//异常处理
  84.   {
  85.     Application->MessageBox("不能打开菜单文件！","提示",MB_OK);
  86.   }
  88.   delete sm; //删除已分配的sm流
  89. }
  90. //---------------------------------------------------------------------------
  91. AnsiString ReadName(TStream *sm)
  92. {
  93.   int nn;
  94.   AnsiString ass;
  95.   char ss[2];
  96.   ass="";
  97.   ss[1]=0;
  98.   for(;;)
  99.   {
  100.     nn=sm->Read(ss,1);
  101.     if(nn!=1)break;
  102.     if((ss[0]=='=')||(ss[0]==0x0d)||(ss[0]==0x0a))
  103.     {
  104.       if(ass!="")break;
  105.     }
  106.     else
  107.     {
  108.       ass=ass+ss;
  109.     }
  110.   }
  111.   return ass;
  112. }
  113. //---------------------------------------------------------------------------
  114. AnsiString ReadValue(TStream *sm)
  115. {
  116.   int nn;
  117.   AnsiString ass;
  118.   char ss[2];
  119.   ass="";
  120.   ss[1]=0;
  121.   for(;;)
  122.   {
  123.     nn=sm->Read(ss,1);
  124.     if(nn!=1)break;
  125.     if(ss[0]==0x0a)
  126.     {
  127.       break;
  128.     }
  129.     else
  130.     {
  131.       if(ss[0]!=0x0d)
  132.         ass=ass+ss;
  133.     }
  134.   }
  135.   return ass;
  136. }
  137. //---------------------------------------------------------------------------
  138. void __fastcall TForm1::MItemClick(TObject *Sender)
  139. {
  140.   TMenuItem *mitem;
  141.   int key;
  142.   mitem=(TMenuItem *)Sender;
  143.   key=mitem->Tag;
  144.   ShowMessage(IntToStr(key));
  145. }
  146. //---------------------------------------------------------------------------
  147. void __fastcall TForm1::Button1Click(TObject *Sender)
  148. {
  149.  ReadMenuFile("TestMenu.Txt");
  150. }
  151. //---------------------------------------------------------------------------