Question

delphi try except end 用法

ClientSocket通信。功能是：连接错误的时候，memo会显示相应信息。但是服务器端停止接受，运行会异步错误。 应该怎么修改呢？是try的位置不对吗？
代码如下：
procedure TClientFrmMain.BtnStartClick(Sender: TObject);
begin
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
ShowStr('connection error ');
end;
end;

Answer 1

procedure TClientFrmMain.BtnStartClick(Sender: TObject);
begin
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 语法就是抛出异常。