引言:

        TStringList *sl=new TStringList;
    sl->LoadFromFile("FilePath.txt");
    FilePath = sl->Strings[0];
    delete sl;    FilePath.txt裡有我之前所設定的檔案路徑

    if(FileExists("FilePath.txt"))
    {
        DeleteFile("FilePath.txt");
    }
    FilePath = DirectoryListBox1->Directory;
    TStringList *sl=new TStringList;
    sl->Add(FilePath);
    sl->SaveToFile("FilePath.txt");
    delete sl;
重新選擇路徑然後儲存成一樣的檔名。    好像沒有辦法儲存成一樣的檔名ㄝ。
要怎麼把原來的檔案覆蓋呢?

ohayogll 你好:
(1)不能存成一樣的檔名?? 會嗎?? 小弟我試過是可以的喔!! 會不會是你其他部
   分的程式碼有錯誤呢?? 建議你自己再檢查看看
(2)不然，先改成上面這樣寫看可不可以呢??
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2003/12/29  23:21:12
        

引言: 後來發現可以覆蓋了...因為問題不是出在可不可以覆蓋... 問題是出在存檔的位置。 因為我用DirectoryListBox1去選擇存檔位置... 然後FilePath.txt就會存到我所選擇的路徑裡... 而我FilePath.txt是用來儲存上次程式執行時資料儲存的位置。 那如果我的FilePath.txt這個檔存到別的路徑裡那就一點意思都沒了。 我在試試如何解決吧!! 謝謝你..板主

ohayogll 你好: 如果是這樣子的話，試試看這個方法行不行呢?? < class="code"> // Load from file AnsiString szFilePath=ExtractFilePath(Application->ExeName); //...Do something... sl->LoadFromFile(szFilePath+"FilePath.txt"); //...Do something...

   // Save to file
   AnsiString szFilePath=ExtractFilePath(Application->ExeName);
   //...Do something...
   sl->SaveToFile(szFilePath+"FilePath.txt");
   //...Do something...

-- Enjoy Researching & Developing --