为什么???
1 HANDLE hComr;
1 hComr=OMR_init(Application->Handle,"COM1",57600);
.
.
.
char *ResultString;
int ResultLength;
AnsiString aaa;
1 Resultlength=OMR_GetResultString(hComr,ResultString);
1 aaa=AnsiString(ResultString);
.
.
.
* Query1- >SQL->Add("Select * from Trans Where Name="+aaa.SubString[i,1]);
执行到带*的语句程序出错,如果把标1的语句封装到其他单元,就没有问题。