[code cpp]
void __fastcall TMainForm::IdTCPServer1Execute(TIdContext *AContext)
{
AnsiString _gstring;
int _rowcount;

_gstring = AContext->Connection->IOHandler->ReadLn(_cr);
_stinglist->Add(_gstring);
_rowcount = _stringlist->Count-1;
_getdata(_rowcount);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::_getdata(int _RecordCount)
{
UnicodeString _sql;
UnicodeString _tid,_time,_count,_days,_club,_no,_id,_group, _name;
int _listrow;

_sql = "select top 1 `no`,`country`,`name`,`group` from basic ";
_sql =" where `tid` = '" _tid "'";

ADOQuery->Close();
ADOQuery->SQL->Clear();
ADOQuery->SQL->Add(_sql);
ADOQuery->Open();
if(! ADOQuery->Eof)
{
_no = ADOQuery->FieldByName("no")->AsString;
_club = ADOQuery->FieldByName("country")->AsString;
_name = ADOQuery->FieldByName("name")->AsString;
_group = ADOQuery->FieldByName("group")->AsString;
}
ADOqJChip->Close();
// 計算StringGrid的Row
_listrow = sgList->RowCount-1 ;
sgList->RowCount = 1;

sgList->Cells[0][_listrow] = AnsiString(_listrow);
sgList->Cells[1][_listrow] = _no;
sgList->Cells[2][_listrow] = _string->Strings[_RecordCount].SubString(8,12).Trim();
sgList->Cells[3][_listrow] = _tid;
sgList->Cells[4][_listrow] = _name;
sgList->Cells[5][_listrow] = _club;
sgList->Cells[6][_listrow] = _group;
}
}
[/code]
目前程式是用來讀取晶片
一個一個讀的話是正常，但一次讀3個畫面就卡住不動了
請問是哪邊的問題?該怎麼修正?麻煩大家幫忙了。