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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
Unit3.~cp
资源名称：3D_OnlineGame_Humen.rar　[点击查看]
上传用户：garry_shen
上传日期：2015-04-15
资源大小：45647k
文件大小：30k
源码类别：

游戏引擎

开发平台：

Visual C++

Unit3.~cp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. #include "Unit2.h"
  7. #include "Unit3.h"
  8. #include "Unit4.h"
  9. #include "Unit5.h"
  10. #include <stdio.h>
  11. #include <Filectrl.hpp>
  12. //---------------------------------------------------------------------------
  13. #pragma package(smart_init)
  14. #pragma resource "*.dfm"
  15. TForm3 *Form3;
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm3::TForm3(TComponent* Owner)
  18.         : TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  23. void __fastcall TForm3::Button8Click(TObject *Sender)
  24. {
  25.      char szStr[250];
  26.      AnsiString szPath;
  28.      if(Edit14->Text!="")
  29.      {
  30.          switch (RadioGroup1->ItemIndex)
  31.          {
  32.          case 0:
  33.              szPath = Form5->Edit53->Text+"\normal\";
  34.              CheckAdd(2,Edit14->Text +".txt");
  35.              ListBox2->Items->SaveToFile(szPath + "_normal.txt");
  36.              break;
  37.          case 1:
  38.              szPath = Form5->Edit53->Text+"\food\";
  39.              CheckAdd(2,Edit14->Text +".txt");
  40.              ListBox2->Items->SaveToFile(szPath + "_food.txt");
  41.              break;
  42.          case 2:
  43.              szPath = Form5->Edit53->Text+"\jiudai\";
  44.              CheckAdd(2,Edit14->Text +".txt");
  45.              ListBox2->Items->SaveToFile(szPath + "_jiudai.txt");
  46.              break;
  47.          case 3:
  48.              szPath = Form5->Edit53->Text+"\drug\";
  49.              CheckAdd(2,Edit14->Text +".txt");
  50.              ListBox2->Items->SaveToFile(szPath + "_drug.txt");
  51.              break;
  52.          case 4:
  53.              szPath = Form5->Edit53->Text+"\equip\";
  54.              CheckAdd(2,Edit14->Text +".txt");
  55.              ListBox2->Items->SaveToFile(szPath + "_equip.txt");
  56.              CheckAdd(6,Edit14->Text);
  57.              Form2->ComboBox6->Items->SaveToFile("equip.lst");
  58.              break;
  59.          case 5:
  60.              szPath = Form5->Edit53->Text+"\weapon\";
  61.              CheckAdd(2,Edit14->Text +".txt");
  62.              ListBox2->Items->SaveToFile(szPath + "_weapon.txt");
  63.              CheckAdd(5,Edit14->Text);
  64.              Form2->ComboBox5->Items->SaveToFile("weapon.lst");
  65.              break;
  66.          case 6:
  67.              szPath = Form5->Edit53->Text+"\book\";
  68.              CheckAdd(2,Edit14->Text +".txt");
  69.              CheckAdd(28,Edit14->Text);
  70.              ListBox2->Items->SaveToFile(szPath + "_book.txt");
  71.              break;
  72.          case 7:
  73.              szPath = Form5->Edit53->Text+"\other\";
  74.              CheckAdd(2,Edit14->Text +".txt");
  75.              ListBox2->Items->SaveToFile(szPath + "_other.txt");
  76.              break;
  77.          case 8:
  78.              szPath = Form5->Edit53->Text+"\flag\";
  79.              CheckAdd(2,Edit14->Text +".txt");
  80.              ListBox2->Items->SaveToFile(szPath + "_flag.txt");
  81.              break;
  82.          }
  83.          if(!DirectoryExists(szPath)) CreateDirectory(szPath.c_str(),NULL);
  84.          StrPCopy(szStr,szPath+Edit14->Text+".txt");
  85.      }
  86.      else
  87.      {
  88.          Form1->StatusBar1->SimpleText = "璣ゅ