procedure TForm1.Button1Click(Sender: TObject);
var
a:TMemoryStream;
c,d:byte;
begin
a:=TMemoryStream.Create;
c:=33;
a.WriteBuffer(c,1);
a.ReadBuffer(d,1);
Memo1.Lines.Add(inttostr(d));
end;编译通过,运行起错误!请指教!
var
a:TMemoryStream;
c,d:byte;
begin
a:=TMemoryStream.Create;
c:=33;
a.WriteBuffer(c,1);
a.ReadBuffer(d,1);
Memo1.Lines.Add(inttostr(d));
end;编译通过,运行起错误!请指教!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货