各位大大.....我想要在讀取某些特定的檔按時(如*.txt) 執行一些工作 void __fastcall TForm2::Open1Click(TObject *Sender) {   if (OpenDialog1->Execute())         {         Memo1->Lines->LoadFromFile(OpenDialog1->FileName);         } } 然後將其結果放置Memo上,請問要怎麼做修改...小弟材疏學淺...                                         kevinhue

kevinhue, 您好 請問您要修改什麼？不是很清楚您的需求，可否解釋一下呢？ 以下連結資料是說明有關字串檔案的例子，供您參考，看是否符合您的需求。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23145 ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

讓我猜看看 您說的是不是如果選的是.txt檔 就秀在畫面上呢

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
if (ExtractFileExt(OpenDialog1->FileName) ==".txt")
{
//這裏可以做你想要做的處理
//然後再秀到memo上面    
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
}
}

發表人 - turboted 於 2003/05/29 12:18:09

tech_state你好:    void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenDialog1->Execute()) { if (ExtractFileExt(OpenDialog1->FileName) ==".txt") { //這裏可以做你想要做的處理 //然後再秀到memo上面     Memo1->Lines->LoadFromFile(OpenDialog1->FileName); } } } 請問一下....那Memo1可以改成String嗎??                            kevinhue

kevinhue兄，不好意思 我想，你在表達問題時，可以請解釋的明白一點嗎 因為我們常常不知道你想要做什麼 而用猜的 您是說把一整檔案資料讀到一個String 變數??

kevinhue, 您好 請參考以下連結文章，試試看！ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30852 如同turboted版主說的，發問時把問題說清楚，這樣大家比較知道要怎麼幫您喔！ ================================= <>涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 <>是非終日有，不聽自然無 <>天下本無事，庸人自擾之

turboted兄: 是低........就是先把讀到的檔案先放到String Temp; 然後在做一些運算的處理.....最後才把處理完的資料 放到Memo上..........可以這樣作嗎??                                拍塞ㄟ....

基本上String是不能LoadFormFile 而且檔案如果很大，怎麼放到一個String裏面 你可以先load到FileStream or MemoryStream 來處理 再秀到memo FileStream & MemoryStream 站上已經討論過很多次 請您好好利用search 系統...^_^

kevinhue您好:   補充:   也可以用TStringList 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

請問各位大哥: 我寫了一個程式如下.... void __fastcall TForm2::Open2Click(TObject *Sender) { if (OpenDialog1->Execute()) { TMemoryStream *TMS=new TMemoryStream(); char *pt; String Temp; TMS->Size=65536; TMS->LoadFromFile(OpenDialog1->FileName); pt=(BYTE *)TMS->Memory; Temp=pt; Memo2 -> Text = Temp; } 是這樣就可以先將載入的檔案先放到Temp下,然後在經由Memo顯示出來,這樣對嗎?                      Kevinhue

kevinhue, 您好 是的，完全正確。不過可能還有地方要在修改吧？ 建議您以後問問題之前先找一下站裡的資料，相信您的收穫會更多。 ================================= <>涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 <>是非終日有，不聽自然無 <>天下本無事，庸人自擾之

To kevinhue: 我看了一下你的程式，基本上是可以的 不過，有兩點問題 (1)if (ExtractFileExt(OpenDialog1->FileName) ==".txt") 這個不需要了嗎?? (2)TMS->Size=65536;這個地方為什麼要設，有什麼特別的用意嗎

to turboted: (1)if (ExtractFileExt(OpenDialog1->FileName) ==".txt") 我加在外面.............最會我會加上去...... (2)TMS->Size=65536;這個地方為什麼要設，有什麼特別的用意嗎 我想讀一個固定64k byte的資料......