BCB中的“保存文件”组件类---TSaveDialog

来源：互联网发布：网络婚礼司仪串词编辑：程序博客网时间：2024/05/21 17:54

在很多界面软件中，点击某按钮后，经常弹出一个保存，让我们选择把文件保存在哪里，以什么文件名保存(此时，文件作为输出)，这是怎么做到的呢？其实非常简单， BCB给我们提供了现成的东东：

//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)    : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){    TOpenDialog *test = new TSaveDialog(this);      test->Title = "请选择保存文件";  // 弹出框的标题    test->InitialDir = "d:";   // 默认目录    test->Filter="txt files (*.txt)|*.txt";  // 文件类型        if(test->Execute())    {            ShowMessage(test->FileName);  // 用户选择了保存某文件    }    else    {            ShowMessage("error");  // 用户放弃选择    }      delete test;}//---------------------------------------------------------------------------

0 0