請問要如何快速載入大檔案，檔案大小約20 MB，要將檔案載入到 ListBox，資料格式是座標資料。
謝謝

Check out TStringList.LoadFromFile and ListBox.Items.AddStrings then the answer is comming out !
===================引 用 seeing 文 章===================
請問要如何快速載入大檔案，檔案大小約20 MB，要將檔案載入到 ListBox，資料格式是座標資料。
謝謝

您好：
小弟目前是這樣做的
[code cpp]
TStringList *filelist = new TStringList;
filelist->LoadFromFile(OpenDialog1->FileName);

int count = filelist->Count;

for(int i=0; i ListBox1->Items->Add(filelist->Strings[i]);

delete filelist;
[/code]
總行數約有 1,080,000 行

Try this to see if it gets better...

try
{
TStringList *filelist = new TStringList;
filelist->LoadFromFile(OpenDialog1->FileName);
ListBox1->Items->AddStrings(filelist);
}
__finally
{
delete filelist;
}

編輯記錄

您好：
小弟有試過用 ListBox1->Items->Assign(filelist); 但是一樣很慢。
我回去再試試看用 ListBox1->Items->AddStrings(filelist); 看會不會比較快，謝謝您的回覆！

理論上。要在那種元件搞上20M 的東西。在載入時，都快不到那邊去。
你自己去追它的 source code 就知道它加一筆資料時，做多少事。
算一下就知道它花那些時間。是合理的。

要真的改掉這個問題。
你得自己改寫元件。^^

那請問有什麼方法可以改進載入檔案的效率?(用記事本開反而不會太久)

編輯記錄

try

LstistBox1->Items->BeginUpdate();
LstistBox1->LoadFromFile(OpenDialog1->FileName);
LstistBox1->Items->EndUpdate()();

用
[code cpp]
LstistBox1->Items->BeginUpdate();
LstistBox1->LoadFromFile(OpenDialog1->FileName);
LstistBox1->Items->EndUpdate()();
[/code]

還是很慢，不過還是謝謝您

小弟目前是用底下的方式來分段顯示，以免感覺要等太久
[code cpp]
if(OpenDialog1->Execute())
{
ListBox1->Clear();

TStringList *filelist = new TStringList;
TStringList *shortfilelist = new TStringList;
filelist->LoadFromFile(OpenDialog1->FileName);

int count = filelist->Count;
CGauge1->MaxValue = count;

for(int i=1; i<=count; i )
{
shortfilelist->Add(filelist->Strings[i-1]);

if(i % 1000 == 0)
{
ListBox1->Items->AddStrings(shortfilelist);
shortfilelist->Clear();
}
CGauge1->Progress ;
}
ListBox1->Items->AddStrings(shortfilelist);

CGauge1->Progress = 0;

delete shortfilelist, filelist;
}
[/code]

正在考慮用Scintilla的元件來試試(http://delphisci.sourceforge.net/)

編輯記錄