需要一個ListBox,Button和一個.txt的資料檔    void __fastcall TForm1::Button1Click(TObject *Sender) {   TStringList *List = new TStringList();   List->LoadFromFile("d:\\line022.txt");      for (int nI = 0; nI < List->Count; nI++)   {     if ( nI != 0 && nI % 1 == 0)  // 在這裡設定你一次要顯示幾行     {       Application->ProcessMessages();       Sleep(1000);     // 在這裡設定你一次等待多久     }      ListBox1->Items->Add(List->Strings[nI]);      ListBox1->Selected[nI]=true;   }   delete List; } 如何一開始就把整個ListBox充滿資料呢(指form上listbox的可見區域裡) 且當要顯示下一筆資料時(指反白的資料),要顯示在ListBox可見區域裡的第一行呢(但是前一筆的資料並沒有刪除,只是隱藏在"卷軸裡") 謝謝 學習中

引言: 如何一開始就把整個ListBox充滿資料呢(指form上listbox的可見區域裡)

TStringList *List = new TStringList(); List->LoadFromFile("d:\\line022.txt"); ListBox1->Items->AddStrings(List); 如果您的txt file不須作其他字串處理,且排序規則,那麼直接用TListBox就可以了啊? >>>< face="Verdana, Arial, Helvetica">引言:當要顯示下一筆資料時(指反白的資料),要顯示在ListBox可見區域裡的第一行呢 ListBox1->Items->Add("test");//新增一筆資料 ListBox1->ItemIndex=ListBox1->Items->Count-1;//將反白移到最後一筆 //如此,能再新增一筆時,將反白Focus到最後一筆,若你想指到該區段的第一筆 您可看看您的ListBox最多可顯示幾筆資料,若為10筆,那麼改成如下即可 ListBox1->ItemIndex=ListBox1->Items->Count-1;//先指到最後一筆 ListBox1->ItemIndex=ListBox1->Items->Count-10;//再往上移9筆 ps(這是我的笨方法,供您參考一下) ===三人行必有我師焉===