Array
(
)

Conversão de rotina de VB para delphi, alguem sabe?

Host
   - 04 jan 2006

o problema é o seguinte codigo:

Function GetLoByte(ByVal x As Integer) As Byte
GetLoByte = CByte(x And &HFF)
End Function

Function GetHiByte(ByVal x As Integer) As Byte
GetHiByte = CByte((x \ &H100) And &HFF)
End Function

como se converte estes caras pra delphi?


Host
   - 10 jan 2006

Function GetLoByte(ByVal x As Integer) As Byte
GetLoByte = CByte(x And &HFF)
End Function

Function GetHiByte(ByVal x As Integer) As Byte
GetHiByte = CByte((x \ &H100) And &HFF)
End Function

ficaria assim:

Function GetLoByte(x:Integer):Byte;
Result = Byte(x And $FF)
end;

Function GetHiByte(x:Integer) :Byte
Result = Byte((x div $100) And $FF)
end;

Vi que ninguem lhe respondeu, e resolvi responde-lo. Boa sorte na proxima.....


Host
   - 10 jan 2006

Olha so ate que enfim um cara que saca de VB e delphi e não fica criticando nem , nem outro.... q maravilha normalmente o pessoal de VB critica usuarios de Delphi.... sei la ... as melhores ferramentas para programação pelo menos pra mim sempre foi os da Borland... depois sei la, tudo que se compila se torna assembler de maquina.... mas sem se aprofundar muito neste papo chato de quem é melhor, muitissimo obrigado... vlw mesmo...


Host
   - 10 jan 2006

O q posso te dizer.....Concordo contigo... esta discussão ñ leva a nada ... o q realmente importa é a quantidde de codigo a mais q cada instrução leva ... mas no contexto os arquivos sofrem por paginação , heap e otras cozitas mas.... o q importa é o aplicativo funcionando... mas sobre sua colocação de que programo em VB, é um equívoco ... na realidade fiz uma macro vb no excel e descobri que o sinal ´\´ no VB é igual ao ´DIV´ do Delphi, ai o resto ficou facil, hehehehe. Para quem ja programou com assembler qq coisa é moleza..... LoByte e HiByte é pra comunicação com algum equipamento....?


Host
   - 10 jan 2006

Ta certo q vc é host, por tanto ñ deveria te conhecer.... mas como sou host diria q a dupla personalidade host ñ te da o direito de perguntar algo que tu ja sabe a resposta....