TStringList *a;
FormCreate()
{
 a=new TStringList;  
 a->LoadFrom("xxx.txt");
}
Timer1()
{
  AnsiString b;
  b=a->Strings[i];
  i  ;
  //........
}
FormClose()
{
 delete a;
}

引言: 可以說明一下您想做什麼嗎 ? 或許有別的建議方案 那幾台電腦有何差異性嗎? 那台電腦是CPU 2.4G,256M ram(這台會有問題) 另一台是CPU 1G,512M ram和CPU 1.7G,512M ram (這兩台都沒問題) 為何不將 code 全放 FormCreate ? 請問如何將code全放在FormCreate呢?是指哪些的code? Timer 預設 1 sec 啟動執行一次, 如果 Timer 佔用記憶體 (例如 local 變數, new 記憶體 ...) 在 1 sec 沒有釋放, 則會隨著時間愈吃愈多 但是我發現他每秒都有做完它該做的事,所以還有可以是因為沒有釋放掉的緣故嗎? 如果 N sec 後第一次執行的 Timer 結束, 則形成穩定的記憶體佔用和釋放 所以系統中會固定佔用 N sec Timer 執行所需要記憶體 因為每台 PC 速度不同, N 值不同, 執行此程式需要佔用的 RAM 不同 如果還沒配置到足夠的 RAM , 系統虛擬記憶體耗盡, 程式可能無法順利執行 如果可以配置到足夠的 RAM , 程式可以順利執行 請問該如何知道每台電腦的N值? 等級越低的電腦比較容易出現這種情況嗎?如果是,那為何反而是我那台等級較高的電腦會出事? 不要在 Timer 不斷 new 記憶體, 或將變數改用全域變數試看看 PS: 以上推測僅供考

TStringList *a;
TForm1::FormCreate()
{
 a=new TStringList;  
 a->LoadFrom("xxx.txt");
}
TForm1::Timer1() //預設1秒
{
  AnsiString b;
  b=a->Strings[i];
  i  ;
  a1(); 
  //........
}
TForm1::FormClose()
{
 delete a;
}
TForm1::a1()
{
 int vA;
 b1(vA);      TStringList *aaa=new TStringList;  
 aaa->LoadFromFile("xxx.txt");
 aaa->Add("xxxxxxxxx");
 aaa->SaveToFile("xxx.txt");
 delete aaa; 
}
TForm1::b1()
{
 //send file to other computer
 //這裡可能要花掉0.5s的時間.
}

TStringList *a;
TForm1::FormCreate()
{
 a=new TStringList;  
 a->LoadFrom("xxx.txt");
}
TForm1::Timer1() //預設1秒
{
  AnsiString b;
  b=a->Strings[i];                     //?? initial value for i ??
  i  ;
//  a1(); 
  a1(a); 
  //........
}
TForm1::FormClose()
{
 delete a;
}
TForm1::a1(TStringList *NewData)
{
// int vA;
// b1(vA); 
//
// TStringList *aaa=new TStringList;  
// aaa->LoadFromFile("xxx.txt");
// aaa->Add("xxxxxxxxx");
// aaa->SaveToFile("xxx.txt");
// delete aaa;      int vA;                            //?? initial value for vA ??
 b1(vA); 
//using same TStringList object for "xxx.txt",
// or the data may not synchronize
 NewData->Add("xxxxxxxxx");
 NewData->SaveToFile("xxx.txt");
}
TForm1::b1()
{
 //send file to other computer
 //這裡可能要花掉0.5s的時間.
}

引言: WM_TIMER 在 MESSAGE QUEUE 只會留一份, 所以不會有 TIMER HANDLER RE-ENTRY 的問題. 可否把完整的 CODE 丟出來?

引言: 我修改了一些邏輯上可能會發生問題的地方. 另外, 這個 code 時間一久, 記憶體一定會越吃越多, 不管在哪一台系統都一樣. TStringList *a 一直加入 data 但是卻沒有告知何時舊資料該丟棄.

引言: 我覺得問題可能在這裡: TForm1::b1() { //send file to other computer //這裡可能要花掉0.5s的時間. } 假如1秒內能做完那還好,假如1秒內做不完(網路塞車),程式可能會過勞死. 試著加個檢查看看,頂多少傳幾個檔,假如要每檔都傳,那就要另想辦法. TForm1::b1() { static int busy=0; if (busy) { ShowMessage("AA");//假如有出現這個訊息,表示真的1秒有可能做不完. return; } busy = 1; //send file to other computer //這裡可能要花掉0.5s的時間. busy = 0; }