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

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
TextProgram.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

TextProgram.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "TextProgram.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::FormCreate(TObject *Sender)
  18. {
  19. Form1->Button1->Enabled=true;
  20. Form1->Button2->Enabled=false;
  21. Form1->Button3->Enabled=false;
  22. Form1->Button4->Enabled=false;
  23. //设置按钮有效性
  24. Form1->Memo1->Clear();
  25. //清除文本框
  26. }
  27. //---------------------------------------------------------------------------
  30. void __fastcall TForm1::Button1Click(TObject *Sender)
  31. {
  32. if (Form1->OpenDialog1->Execute())
  33.    //显示对话框
  34.    {
  35.     Form1->Button2->Enabled=true;
  36.     Form1->Button3->Enabled=true;
  37.     Form1->Button4->Enabled=true;
  38.     //设置按钮有效状态
  39.     }
  40. }
  41. //---------------------------------------------------------------------------
  43. void __fastcall TForm1::Button2Click(TObject *Sender)
  44. {
  45. Form1->Memo1->Lines->LoadFromFile(Form1->OpenDialog1->FileName);
  46. //显示文件内容
  47. }
  48. //---------------------------------------------------------------------------
  50. void __fastcall TForm1::Button3Click(TObject *Sender)
  51. {
  52. if (Form1->Memo1->Modified)
  53.    //判断文件是否被改变
  54.    {
  55.    if (MessageDlg("文件已经被修改过，存储修改后的结果吗？", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
  56.        //提示用户是否保存修改结果
  57.        {
  58.        if (Form1->SaveDialog1->Execute())
  59.           //显示对话框
  60.           {
  61.           Form1->Memo1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  62.           //存储文件
  63.           }
  64.        }
  65.    }
  66. Form1->Memo1->Clear();
  67. //清除文本框中的内容
  68. Form1->Button2->Enabled=false;
  69. Form1->Button3->Enabled=false;
  70. Form1->Button4->Enabled=false;
  71. //设置按钮有效状态
  72. }
  73. //---------------------------------------------------------------------------
  75. void __fastcall TForm1::Button4Click(TObject *Sender)
  76. {
  77. Form1->SaveDialog1->Title="请存储为一个文本文件：";
  78. //设置对话框标题
  79. Form1->SaveDialog1->Filter="Text Files(*.txt)|*.txt";
  80. //设置过滤器
  81. if (Form1->SaveDialog1->Execute())
  82.    //显示对话框
  83.    {
  84.    Form1->Memo1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  85.    //存储文件
  86.    }
  87. }
  88. //---------------------------------------------------------------------------
  90. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  91. {
  92. if (Form1->Memo1->Modified)
  93.    //判断文件是否被改变
  94.    {
  95.    if (MessageDlg("文件已经被修改过，存储修改后的结果吗？", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
  96.        //提示用户是否保存修改结果
  97.        {
  98.        if (Form1->SaveDialog1->Execute())
  99.           //显示对话框
  100.           {
  101.           Form1->Memo1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  102.           //存储文件
  103.           }
  104.        }
  105.    }
  106. }
  107. //---------------------------------------------------------------------------