[BCB] 開文字檔

TStringList* SL = new TStringList();
SL->LoadFromFile(asf_sourcefile);
Memo1->Lines->BeginUpdate();
for (int i=0; iCount; i++)
　　Memo1->Lines->Add(SL->Strings[i]);
//或是直接Memo1->Lines->AddStrings(SL_file);
Memo1->Lines->EndUpdate();

利用TStringList來讀取文字檔
Memo1->Lines->BeginUpdate();以及
Memo1->Lines->EndUpdate();
這樣做是在完成更新後， TMemo 就不會自動移到最後一行了