function BCDBytesToWord(B1, B2: byte): word;
begin
result := StrToInt(Format('%2d', [B1]) + Format('%2d', [B2]))
end;
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Claudio
Enviada em: terça-feira, 18 de agosto de 2009 16:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] 2 bytes to word
Olá pessoal , preciso de uma ajuda basica.
Tenho 2 valores (bytes) estão em BCD preciso transforma-los em uma word.
Ex. byte1=01 byte2=50, tem que ficar assim var=150.
Andei lendo o Help mas não achei uma função especifica pra isso, tem ?
Obrigado
Claudio.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
