請問大大們 我使用RichEdit1讀取一個65MB大小的檔案時 都好久...但看了其他文字編輯系統都不會 看了論壇上有人推薦使用LoadFromFile 但還是有點慢... 不知是否有其他更快速的方法.......... 程式碼如下 if(OpenDialog1->Execute()==true) { RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName); } 丟入 TStringList 更慢 我的天呀....... 發表人 - taishyang 於 2005/04/01 09:11:24

如果是開很大的檔案我都會先把RichEdit隱藏起來，等到他全部開完再顯示出來，感覺起來有比較快 如果用記事本來開

if(OpenDialog1->Execute()==true) { RichEdit1->Visible=false; RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName); RichEdit1->Visible=true; } 不知道大大的意思是否為如此 但時間還是要1分鐘左右 但UltraEdit只要８秒左右.......真是厲害 不知是否有其他方法

參考這篇的討論~ 問題】有關檔案處理的問題....  http://delphi.ktop.com.tw/topic.php?topic_id=56169

試試看如下的程式是否快一點?

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TFileStream *f;
AnsiString sFileName="d:\\BCB.bak";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{
::DeleteFile(sFileName.c_str()); // 先刪除檔案
RenameFile("d:\\BCB.txt","d:\\BCB.bak");
PChar szData;

// 建立檔案物件指標，並且開啟成可讀的型態
f = new TFileStream( sFileName , fmOpenReadWrite);
// 取得儲存檔案內容的記憶體大小
szData = (PChar)malloc( f->Size 1 );
// 將檔案內容讀至記憶體中
f->ReadBuffer( szData , f->Size );
// 將字串尾端設為『0』
szData[ f->Size ] = '\0';
// 清除『Memo』元件上的內容
Memo1->Clear();
// 將記憶體內容指定給 Memo 元件，也就是將檔案內容 Show 出
Memo1->Lines->Text = StrPas( szData );
// 釋放儲存檔案內容的記憶體大小
free( szData );

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{

PChar szData;

// 取得儲存檔案內容的記憶體大小
szData = (PChar)malloc( Memo1->Lines->Text.Length() 1 );
// 將 Pascal 字串轉成 0 字尾的字串
strcpy( szData , Memo1->Lines->Text.c_str() );
if ( !f ) // 判別是否已經開啟檔案了
{
delete f; // 釋放檔案物件所佔的記憶體
f = NULL; // 將檔案指標歸零
}

// 建立所要儲存檔案的物件
f = new TFileStream( "d:\\BCB.txt" , fmCreate );
// 從檔案指標設定為開頭處
f->Seek( 0 , soFromBeginning );
// 將 Memo 上的內容，寫入檔案中
f->WriteBuffer( szData , strlen( szData ) );
// 釋放儲存檔案內容的記憶體大小
free( szData );
delete f; // 釋放檔案物件所佔的記憶體
f = NULL; // 將檔案指標歸零
// 建立檔案物件指標，並且開啟成可讀的型態

}
//---------------------------------------------------------------------

------
yangshuh

如果是純文字檔案, 不需要有字體大小或顏色等設定
使用下面設定吧
RichEdit1->PlainText=True;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！