Follow up on r3745

This commit is contained in:
Ansgar Becker
2011-05-29 23:07:58 +00:00
parent 8f4c2da963
commit 0c16da99ea

View File

@ -4907,7 +4907,7 @@ var
Conn: TDBConnection;
begin
Conn := ActiveConnection;
if Assigned(Conn) and Conn.Active then begin
if (Conn <> nil) and Conn.Active then begin
// Calculate and display connection-time. Also, on any connect or reconnect, update server version panel.
ConnectedTime := Conn.ConnectionUptime;
ShowStatusMsg('Connected: ' + FormatTimeNumber(ConnectedTime, False), 2);