for i:=0 to inputlen-1 do
begin
datastr1:=datastr1+' '+LowerCase(IntToHex(SerialInput[i],2));
indata[a]:= SerialInput[i];
inc(a);
end;
在这一段经常出现out of memory的情况，这是接收串口发来的数据，每次串口发一包数据，数据保存在数组中，每发一包数据则记录一包，估计一直接收导致数组无限增大，怎么样才能把每接收的一包数据后数组清空，然后数组从零开始记录下一包呢？

楼主问题解决了吗