在Delphi中判斷數據庫連接失效可以通過捕獲異常來處理。一種常見的方法是使用try..except塊來捕獲數據庫連接異常，然后在except塊中重新連接數據庫。示例代碼如下：
```delphi
uses
DB, DBXCommon, DBXError;
var
conn: TSQLConnection;
begin
conn := TSQLConnection.Create(nil);
try
conn.DriverName := 'MySQL';
conn.Params.Add('HostName=127.0.0.1');
conn.Params.Add('Database=mydatabase');
conn.Params.Add('User_Name=myuser');
conn.Params.Add('Password=mypassword');
try
conn.Open;
// 連接成功
except
on E: TDBXError do
begin
// 數據庫連接異常
// 重新連接數據庫
conn.Close;
conn.Open;
end;
end;
finally
conn.Free;
end;
end;
```
在上面的代碼中，我們創建了一個TSQLConnection對象，并設置了連接參數。然后在try塊中嘗試打開數據庫連接，如果連接失敗，則捕獲TDBXError異常，在except塊中關閉連接并嘗試重新連接數據庫。
需要注意的是，在實際應用中，我們還可以根據具體的業務邏輯和需求來處理數據庫連接失效的情況，例如記錄日志、提示用戶等。
