Pesquisar na Comunidade
Showing results for tags 'funcao sem retorno'.
Encontrado 1 registro
-
Unit ACBrBase function THttpHeader.AddHeader(const AHeader, AValue: string): Integer; var I: Integer; LinhaHeader: String; begin LinhaHeader := AHeader + ': ' + AValue; I := GetHeaderIndex(AHeader); if I < 0 then Add(LinhaHeader) else Strings := LinhaHeader; end; E em unit ACBrWinINetReqResp está acusando result nao usado, realmente, alguem deixou-a com 2 possiveis retornos. function TACBrWinINetReqResp.InternalOpenRequest: Boolean; var RequestFlags: DWORD; begin Result := inherited InternalOpenRequest; if (UseSSL) then begin RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE; RequestFlags := RequestFlags or INTERNET_FLAG_SECURE; if (UseCertificate) then RequestFlags := RequestFlags or ( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID ); end else RequestFlags := INTERNET_SERVICE_HTTP; FpRequest := HttpOpenRequest( FpConnection, PChar(Method), PChar(URI), nil, nil, nil, RequestFlags, 0); Result:= Assigned(FpRequest); end;