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

关注

原创最新推荐文章于 2026-07-29 14:34:54 发布 9.5k 阅读 AI 写同款· GEO 优化 ›

学习提速专享！AI工具全家桶免费用限时购周边加赠Coding Plan Lite，解锁20+主流AI工具，写代码、查资料快人一步！阅读详情

在很多界面软件中，点击某按钮后，经常弹出一个保存，让我们选择把文件保存在哪里，以什么文件名保存(此时，文件作为输出)，这是怎么做到的呢？其实非常简单， 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;
}
//---------------------------------------------------------------------------

收录于