mainform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码)2 第三部分 文件操作 第四部」· C++ 代码 · 共 41 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
#include "ComObj.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  this->Memo1->Text="这是一个演示如何将数据转化成WORD文档格式的程序。它能够将程序中的数据转化成WORD文档格式，并直接启动WORD软件显示出来。";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
   this->Close();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  Variant Var;
  Var=CreateOleObject("Word.Basic");
  Var.Exec(Procedure("AppShow"));
  Var.Exec(Procedure("FileNew")<<"Normal");
  for(int i=0;i<this->Memo1->Lines->Count;i++)
  {
     Var.Exec(Procedure("Insert")<<Memo1->Lines->Strings[i]+"\r\n");
  }
}
//---------------------------------------------------------------------------