功能是：连接错误的时候，memo会显示相应信息？

Question

但是服务器端停止接受，运行会异步错误。 应该怎么修改呢？是try的位置不对吗？代码如下：procedure TClientFrmMain.BtnStartClick(Sender: TObject);beginif not ClientSocket.Socket.Connected thentryClientSocket.Active:=False;ClientSocket.Host:='PC-201004041415';ClientSocket.Port:=StrToInt(EdPort.Text);ClientSocket.Open;ShowStr('正在建立与'+ClientSocket.Socket.RemoteAddress+'的连接...');exceptShowStr('connection error ');end;end;

Answer 1

if not ClientSocket.Socket.Connected then
try
ClientSocket.Active:=False;
ClientSocket.Host:='PC-201004041415';
ClientSocket.Port:=StrToInt(EdPort.Text);
ClientSocket.Open;
ShowStr('正在建立与'+ClientSocket.Socket.RemoteAddress+'的连接...');
except on e:Exception do
begin
ShowStr('connection error '+E.Message);
end;
end;
end;

Answer 2

try except end 语法就是抛出异常。