線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1048
推到 Plurk!
推到 Facebook!

RichEdit SaveAs 問題請教

答題得分者是:s92405054
nba2005mt
一般會員


發表:5
回覆:9
積分:2
註冊:2012-09-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-09-26 13:57:28 IP:125.224.xxx.xxx 訂閱
 我做了一個  richedit   四個按鈕 分別為 open   delete   save   saveas
前三個 什麼沒問題
但 saveas 碰到了問題
當我開啟 一文字檔(.txt)之後
另存之後 不會存回 .txt (用右鍵選擇記事本還是可以開啟)
另存之後的當案類型 為 "檔案"
請教各位先進 該如何解決
我是不是少了什麼東西

以下為SaveAs Button 的程式

void __fastcall TForm1::SaveAs_BtClick(TObject *Sender)
{
SaveDialog1->Filter = "TXT files (*.txt)";
if(SaveDialog1->Execute()) {
FileName = SaveDialog1->FileName;
RichEdit1->Lines->SaveToFile( FileName );
}
}
s92405054
高階會員


發表:7
回覆:49
積分:101
註冊:2009-04-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-09-27 09:53:26 IP:60.248.xxx.xxx 訂閱

SaveDialog1->Filter = "TXT files (*.txt)";改為
SaveDialog1->Filter = "TXT files (*.txt)|*.txt";
SaveDialog1->DefaultExt =".txt";
===================引 用 nba2005mt 文 章===================
我做了一個 richedit 四個按鈕 分別為 open delete save saveas
前三個 什麼沒問題
但 saveas 碰到了問題
當我開啟 一文字檔(.txt)之後
另存之後 不會存回 .txt (用右鍵選擇記事本還是可以開啟)
另存之後的當案類型 為 "檔案"
請教各位先進 該如何解決
我是不是少了什麼東西

以下為SaveAs Button 的程式

void __fastcall TForm1::SaveAs_BtClick(TObject *Sender)
{
SaveDialog1->Filter = "TXT files (*.txt)";
if(SaveDialog1->Execute()) {
FileName = SaveDialog1->FileName;
RichEdit1->Lines->SaveToFile( FileName );
}
}
系統時間:2024-05-20 8:17:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!