1,593
社区成员
发帖
与我相关
我的任务
分享
var
s: Variant;
buffer3: array of byte;
i: integer;
begin
i := 0;
SetLength(buffer3, 10);//++加上,你没有初始化buffer3!
s := VarArrayCreate([0, 0], varByte);
for i := 0 to 10 do
begin
s := MSComm1.Input;
buffer3[i] := s[0];
end;
end;