Fórum Byte #386850
21/09/2010
0
Alexandro Oliveira
Curtir tópico
+ 0Posts
21/09/2010
Wesley Yamazack
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
21/09/2010
Alexandro Oliveira
Gostei + 0
22/09/2010
Wesley Yamazack
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
22/09/2010
Alexandro Oliveira
Gostei + 0
22/09/2010
Wesley Yamazack
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
22/09/2010
Alexandro Oliveira
Gostei + 0
22/09/2010
Wesley Yamazack
Att,
Wesley Y
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)