地址写错误
try
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add(string(Data.Buf));
except on e: exception do
raise exception .Create(e.Message);//此处断点看一下form1.Memo1信息是否正常
end;
try
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add(string(Data.Buf));
except on e: exception do
raise exception .Create(e.Message);//此处断点看一下form1.Memo1信息是否正常
end;
这太诡异了 哈
错误提示, 应该是form1或memo1出问题了, 那么加异常处理就不会奔溃.
如果你没有主动释放相关对象的话,你可以提前判一下
try
application.processmessage;
if (form1 = nil) or (form1.Memo1 = nil) then
exit;
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add(string(Data.Buf));
except on e: exception do
raise exception .Create(e.Message);//此处断点看一下form1.Memo1信息是否正常
end;