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

Question

o problema � o seguinte codigo:Function GetLoByte(ByVal x As Integer) As Byte  GetLoByte = [b:7e4afebb57]CByte(x And &HFF)[/b:7e4afebb57]End FunctionFunction GetHiByte(ByVal x As Integer) As Byte ...

Host · Answer

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 · Answer

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 · Answer

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 · Answer

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