M
mylovegirl
Unregistered / Unconfirmed
GUEST, unregistred user!
接受如下
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
strreceive:string;
bufferointer;
bufferlength:word;
begin
setlength(strreceive,bufferlength);
move(buffer^,pchar(strreceive)^,bufferlength);
Memo1.lines.add(strreceive);
Memo1.Invalidate;
end;
结果有异常错误
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
strreceive:string;
bufferointer;
bufferlength:word;
begin
setlength(strreceive,bufferlength);
move(buffer^,pchar(strreceive)^,bufferlength);
Memo1.lines.add(strreceive);
Memo1.Invalidate;
end;
结果有异常错误