if (SaveDialog1->Execute())
   {
    TStringList *txtfile=new TStringList;
    txtfile->Add("test");
    txtfile->SaveToFile(SaveDialog1->FileName);
    delete txtfile;
   }

if (SaveDialog1->Execute())
    Memo1->Lines->SaveToFile(SaveDialog1->FileName);

引言: 在程式執行時會開一個新的txt檔把資料寫進去，我本來是寫死，就是在程式中直接指定檔名是什麼，要如何讓user輸入他自己想要的檔名呢？謝謝 < face="Verdana, Arial, Helvetica">

kulala：試試下面的方式：
AnsiString FileName;
#define INIFILE "opentxt.ini"    // FormCreate事件定義：
FileName="myopen.txt"; //原本妳定義的檔名
//讀取INI的檔名
TIniFile* ini =
new TIniFile(ExtractFilePath(ParamStr(0))  INIFILE); // 請注意路徑ExtractFilePath(ParamStr(0))
FileName = ini->ReadString("Main", "filename", FileName);
//若INI檔不存在或INI檔內的Main->filename不存在會引用原本定義。
delete ini;    //將檔名存入INI
TIniFile* ini =
new TIniFile(ExtractFilePath(ParamStr(0))  INIFILE); // 請注意路徑ExtractFilePath(ParamStr(0))
ini->WriteString("Main", "filename", FileName);
delete ini;    //使用者自行定義檔名，使用Button或TMainMenu等方式皆可以
AnsiString S=FileName;
InputQuery("定義檔名", "請輸入檔名::", S);
if (S!=FileName)
  //將檔名存入INI
// 下次呼叫INI檔時會引用使用者的檔名定義
請參考！

Andy Chang

引言: Andy Chang: 請問你這個是在開檔的時候就直接命名嗎？ 我看你的註解好像是已經有一個已存在的檔.... 不太瞭解說.... 謝謝指教