Conversão de rotina de VB para delphi, alguem sabe?
o problema é o seguinte codigo:
Function GetLoByte(ByVal x As Integer) As Byte
GetLoByte = [b:7e4afebb57]CByte(x And &HFF)[/b:7e4afebb57]
End Function
Function GetHiByte(ByVal x As Integer) As Byte
GetHiByte = [b:7e4afebb57]CByte((x \ &H100) And &HFF)[/b:7e4afebb57]
End Function
como se converte estes caras pra delphi?
Function GetLoByte(ByVal x As Integer) As Byte
GetLoByte = [b:7e4afebb57]CByte(x And &HFF)[/b:7e4afebb57]
End Function
Function GetHiByte(ByVal x As Integer) As Byte
GetHiByte = [b:7e4afebb57]CByte((x \ &H100) And &HFF)[/b:7e4afebb57]
End Function
como se converte estes caras pra delphi?
Host
Curtidas 0
Respostas
Host
04/01/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.....
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.....
GOSTEI 0
Host
04/01/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...
GOSTEI 0
Host
04/01/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....?
GOSTEI 0
Host
04/01/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....
GOSTEI 0