引言: 請教各位大大： 我也是參考那本BCB與RS232的書，我想將從8051接收到的資料依序顯示在Edit元件上(30筆資料不斷的傳入)，程式可以執行，但是執行後總會出現Buffer Out of Range的錯誤，可是如果我用Memo元件顯示的話卻可以達到我的需求，感覺上應該是我的程式語法有問題，這讓我很納悶。另外就是我不知道如何利用迴圈讓讀入的值依序丟入不同的Edit中，所以我用最笨的方法一個一個丟（參考下面的程式碼），希望有高手可以教教我...感激不盡！！以下是我的部分程式碼：

void __fastcall TForm1::Comm1ReceiveData(TObject *Sender)
{
  DynamicArray ByteSend,ByteReceive;
  long i;      ByteReceive=Comm1->ReadInputByte();
  for (i=0;iText=Memo1->Text  IntToStr(ByteReceive[i]) '\x0d' '\x0a' ;    //以下是不能執行的（我有分開測試，並不是一起執行）
/* Memo1->Text = IntToStr(ByteReceive[0]);
 Memo2->Text = IntToStr(ByteReceive[1]);
 Memo3->Text = IntToStr(ByteReceive[2]);
 Memo4->Text = IntToStr(ByteReceive[3]);
 Memo5->Text = IntToStr(ByteReceive[4]);
 Memo6->Text = IntToStr(ByteReceive[5]);
 Memo7->Text = IntToStr(ByteReceive[9]);
 Memo8->Text = IntToStr(ByteReceive[7]);
 Memo9->Text = IntToStr(ByteReceive[8]);
 Memo10->Text = IntToStr(ByteReceive[9]);
 Memo11->Text = IntToStr(ByteReceive[10]);
 Memo12->Text = IntToStr(ByteReceive[11]);
 Memo13->Text = IntToStr(ByteReceive[12]);
 Memo14->Text = IntToStr(ByteReceive[13]);
 Memo15->Text = IntToStr(ByteReceive[14]);
 Memo16->Text = IntToStr(ByteReceive[15]);
 Memo17->Text = IntToStr(ByteReceive[16]);
 Memo18->Text = IntToStr(ByteReceive[17]);
 Memo19->Text = IntToStr(ByteReceive[18]);
 Memo20->Text = IntToStr(ByteReceive[19]);
 Memo21->Text = IntToStr(ByteReceive[20]);
 Memo22->Text = IntToStr(ByteReceive[21]);
 Memo23->Text = IntToStr(ByteReceive[22]);
 Memo24->Text = IntToStr(ByteReceive[23]);
 Memo25->Text = IntToStr(ByteReceive[24]);
 Memo26->Text = IntToStr(ByteReceive[25]);
 Memo27->Text = IntToStr(ByteReceive[26]);
 Memo28->Text = IntToStr(ByteReceive[27]);
 Memo29->Text = IntToStr(ByteReceive[28]);
 Memo30->Text = IntToStr(ByteReceive[29]);  */
 }

  ByteReceive=Comm1->ReadInputByte();