Code: Select all
function TZAbstractConnection.PingServer: Integer;
begin
RaiseUnsupportedException;
//050915 set Result to avoid compiler warning
Result := -1;
end;
Code: Select all
function TZAbstractConnection.PingServer: Integer;
begin
RaiseUnsupportedException;
//050915 set Result to avoid compiler warning
Result := -1;
end;