Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'val'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Hoje fui migrar para o Delphi XE10 e me deparei com um erro que não estou sabendo resolver! Essa função foi criada no Delphi 7 e roda normalmente. Quando fui migrar o projeto todo para Delphi XE10, essa função não foi aceita rs. Alguém poderia me ajudar? Gostaria de entender o erro também!! Obrigado function ABNTRound(xValor:Extended; Decimals:SmallInt):Extended; var VM : Extended; P, F, P2, F2 : Extended; begin VM := Power(10, Decimals); P := Int(xValor); F := StrToFloat(FloatToStr(Frac(xValor) * VM)); P2 := Val(Int(F)); F2 := Val(Frac(F)); if F2 > 0.5 then begin P2 := P2 + 1; end else begin if ((10 * Val(F2)) >= 4.9999) and ((10 * Val(F2)) <= 5.0001) then begin if Frac(P2 / 2) > 0 then P2 := P2 + 1; end; end; P2 := P2 / VM; Result := P + P2; end; [dcc32 Error] uLibrary.pas(5356): E2008 Incompatible types
×
×
  • Create New...