ugetstarted.cpp

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

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

#include <vcl.h>
#pragma hdrstop

#include "UGetStarted.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "UCustomFlexCelReport"
#pragma link "UExcelAdapter"
#pragma link "UFlexCelReport"
#pragma link "XLSAdapter"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  if (!SaveDialog1->Execute()) return;
  if (FileExists(SaveDialog1->FileName)) DeleteFile(SaveDialog1->FileName);
  RepStart->FileName=SaveDialog1->FileName;
  RepStart->Run();

}
//---------------------------------------------------------------------------