if 有一個100行的資料存在.txt裡 當程式讀進來後,希望show在edit裡每次10筆(如1~10筆資料) 過了10秒中後,show出2~11筆資料 請問要如何寫這樣的程式呢 (edit裡的程式要下什麼樣的指令才能使它show另外的值呢) 且是用edit還是用剪貼簿還是有其他物件比較適用呢 謝謝

gofome, 您好 請參考以下連結資料，再加上一個TTimer元件，應該就可以達到您的需求了，試試看！ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30852 ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

Edit 怎麼能夠裝的下十筆資料，建議你用 Memo 不知道有沒有誤會你的意思，試試以下的程式：

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *pList = new TStringList();
  pList->LoadFromFile("d:\\data.txt");
  for (int nI = 0; nI < pList->Count; nI  )
  {
    if ( nI != 0 && nI % 10 == 0)  // 在這裡設定你一次要顯示幾行
    {
      Application->ProcessMessages();
      Sleep(10000);     // 在這裡設定你一次等待多久
    }
    Memo1->Lines->Add(pList->Strings[nI]);  
  }
  delete pList;
}

發表人 - BGman 於 2003/05/29 18:20:20