Byte
Bom Gostaria de Saber como poderia transformar um String = '55AA1010' em byte no delphi 2010
Alexandro Oliveira
Curtidas 0
Respostas
Wesley Yamazack
21/09/2010
Olá amigo,
Seguinte pelo que entendi veja se este exemplo que desenvolvi lhe ajudar.
http://video.devmedia.com.br/discovirtual/192388/Consultoria/String to Byte.zip
Um abraço
Wesley Y
Seguinte pelo que entendi veja se este exemplo que desenvolvi lhe ajudar.
http://video.devmedia.com.br/discovirtual/192388/Consultoria/String to Byte.zip
Um abraço
Wesley Y
GOSTEI 0
Alexandro Oliveira
21/09/2010
Muito Show o seu Exemplos você é fera mesmo.
Campeão Você poderia, por favor me explicar como este código funciona?. não entendi muito bem o que significa '-48'
Result[j] := ord(AStr[j + 1]) - 48;
GOSTEI 0
Wesley Yamazack
21/09/2010
Olá amigo,
Veja a função : function Ord(X: Char): Byte;
Seguinte a função Ord, retorna o valor ordinal de uma expressão do tipo ordinal.
X é um expressão em Delphi do tipo ordinal. O resultado é a posição ordinal do X; seu tipo é o menor tipo inteiro padrão que pode conter todos os valores do tipo X.
Ord não pode operar em Int64 valores.
Caracter Decimal - 48
Decimal
D 20 68 E 53 101 V 70 118 M 29 77 E 53 101 D 52 100 I 57 105 A 49 97
- 48 é para podermos converter de Decimal para Byte(68(Decimal) - 48 = 20Byte, veja neste link a tabela ASCII http://www.walthowe.com/navnet/faq/ascitabl.html
Result[I] := ord(Value[I + 1]) - 48; - Estamos aqui montando o array para preencher as informações de acordo com o tamanho da String, se a String tem 10 posições teu array terá 10 posições, blz ?
Att,
Wesley Y
Veja a função : function Ord(X: Char): Byte;
Seguinte a função Ord, retorna o valor ordinal de uma expressão do tipo ordinal.
X é um expressão em Delphi do tipo ordinal. O resultado é a posição ordinal do X; seu tipo é o menor tipo inteiro padrão que pode conter todos os valores do tipo X.
Ord não pode operar em Int64 valores.
Caracter Decimal - 48
Decimal
D 20 68 E 53 101 V 70 118 M 29 77 E 53 101 D 52 100 I 57 105 A 49 97
- 48 é para podermos converter de Decimal para Byte(68(Decimal) - 48 = 20Byte, veja neste link a tabela ASCII http://www.walthowe.com/navnet/faq/ascitabl.html
Result[I] := ord(Value[I + 1]) - 48; - Estamos aqui montando o array para preencher as informações de acordo com o tamanho da String, se a String tem 10 posições teu array terá 10 posições, blz ?
Att,
Wesley Y
GOSTEI 0
Alexandro Oliveira
21/09/2010
Ok Entendi , Agora estou precisando enviar isto via udp qual seria o componente do delphi mais indicado pra enviar este arquivos e qual seria o melhor metodo de envio desta informações para um placa controladora ?
GOSTEI 0
Wesley Yamazack
21/09/2010
Olá amigo,
Para cada dúvida é necessário a abertura de um chamado, sua dúvida inicial era sobre o Byte certo? Para esta outra dúvida necessito que abra um outro chamado, ok meu caro ?
Um abraço
Wesley Y
Para cada dúvida é necessário a abertura de um chamado, sua dúvida inicial era sobre o Byte certo? Para esta outra dúvida necessito que abra um outro chamado, ok meu caro ?
Um abraço
Wesley Y
GOSTEI 0
Alexandro Oliveira
21/09/2010
entendo....
GOSTEI 0
Wesley Yamazack
21/09/2010
Blz amigo, chamado fechado.
Att,
Wesley Y
Att,
Wesley Y
GOSTEI 0