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

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

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

#include 
#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;
}
//---------------------------------------------------------------------------