Category

Development Platform
Home > E-Books > Delphi-C++Builder > View Code
TxtRtf.cpp
Package: c++builder6编程实例.ZIP　[view]
Upload User: lulishicai
Upload Date: 2010-03-01
Package Size: 13202k
Code Size: 3k
Category:

Delphi-C++Builder

Development Platform:

C++ Builder

TxtRtf.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "TxtRtf.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->OpenDialog1->Title="请选择一个文本文件：";
  20. //设置对话框标题
  21. Form1->OpenDialog1->InitialDir="c:\pwin98";
  22. //设置缺省路径
  23. Form1->OpenDialog1->Filter="纯文本文件(*.txt)|*.txt|RTF文本文件(*.rtf)|*.rtf";
  24. //设置对话框过滤器
  25. }
  26. //---------------------------------------------------------------------------
  28. void __fastcall TForm1::Button1Click(TObject *Sender)
  29. {
  30. if (Form1->OpenDialog1->Execute())
  31.    //显示对话框
  32.    {
  33.    Form1->RichEdit1->Lines->LoadFromFile(Form1->OpenDialog1->FileName);
  34.    //打开文本文件
  35.    if (UpperCase(ExtractFileExt(Form1->OpenDialog1->FileName))==".TXT")
  36.       //如果文件扩展名是TXT
  37.       {
  38.       Form1->Button2->Caption="转换为RTF文件";
  39.       //设置按钮状态
  40.       Form1->SaveDialog1->Filter="RTF文本文件(*.rtf)|*.rtf";
  41.       //设置对话框过滤器
  42.       Form1->SaveDialog1->DefaultExt="rtf";
  43.       //设置缺省扩展名
  44.       Form1->SaveDialog1->Title="请输入一个RTF文件名：";
  45.       //设置对话框标题
  46.       }
  47.    else if (UpperCase(ExtractFileExt(Form1->OpenDialog1->FileName))==".RTF")
  48.       //如果文件扩展名是RTF
  49.       {
  50.       Form1->Button2->Caption="转换为TXT文件";
  51.       //设置按钮状态
  52.       Form1->SaveDialog1->Filter="纯文本文件(*.txt)|*.txt";
  53.       //设置对话框过滤器
  54.       Form1->SaveDialog1->DefaultExt="txt";
  55.       //设置缺省扩展名
  56.       Form1->SaveDialog1->Title="请输入一个TXT文件名：";
  57.       //设置对话框标题
  58.       }
  59.    }
  60. }
  61. //---------------------------------------------------------------------------
  63. void __fastcall TForm1::Button2Click(TObject *Sender)
  64. {
  65. if (Form1->SaveDialog1->Execute())
  66.    //显示对话框
  67.    {
  68.    Form1->RichEdit1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  69.    //存储文件
  70.    }
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  75. {
  76. if (Form1->RichEdit1->Modified)
  77.    //判断文件是否被改变
  78.    {
  79.    if (MessageDlg("文件已经被修改过，存储修改后的结果吗？", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
  80.        //提示用户是否保存修改结果
  81.        {
  82.        if (Form1->SaveDialog1->Execute())
  83.           //显示对话框
  84.           {
  85.           Form1->RichEdit1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  86.           //存储文件
  87.           }
  88.        }
  89.    }
  90. }
  91. //---------------------------------------------------------------------------
  93.