超级菜的问题

Question

对编程不懂哈，想请问一下：
在delphi中，我想点击一个按钮后，就新建立一个txt文件，但新建时可以选择文件的保存路径，然后另一个函数的参数要调用这个文件名，请问应该做？非常感激不尽。

Answer 1

放一个TSaveDialog
一个TButtonButton事件
if Savedialog1.Execute then
   CloseHandle(FileCreate(SaveDialog1.FileName));

Answer 2

以下是VC的示例代码：谢谢各位。
void CTestDlg::OnCreateButton() 
{
    CFileDialog fileDialog( FALSE,"txt", "", 
OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, 
"文件(*.txt)|*.txt|", NULL); 
fileDialog.m_ofn.lpstrTitle="选择要新建的文件名";
if(fileDialog.DoModal() != IDOK)
return;
m_ctrlCtestcx.CreateFile(fileDialog.GetPathName());
}

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  with SaveDialog1  do
  begin
    Title := '选择要新建的文件名';
    Filter := '文件(*.txt)|*.txt|';
    DefaultExt := 'txt';
    Options := Options + [ofOverWritePrompt,ofHideReadOnly];
    if Execute then
      m_ctrlCtestcx.CreateFile(GetNamePath);
  end;
end;

Answer 4

借宝地一用:欢迎加入delphi群(37792189)