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

04/01/2006

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?


Host

Respostas

10/01/2006

Host

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.....


Responder Citar

10/01/2006

Host

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...


Responder Citar

10/01/2006

Host

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....?


Responder Citar

10/01/2006

Host

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....


Responder Citar