comando copy não funciona como eu quero
veja isto:
recebo o codigo de barras da balança assim: 2000100000946
o primeiro digito devo desconsiderar = 2
pego em uma variavel os proximos 6 digitos que é o codigo do produto
000100 utilizo o copy(Edit1.text,2,6) -- Esta funcionado perfeito ate aqui
pego em outra variavel mais seis posições que seria o valor do produto
seria copy(Edit1.text,8,12) para desconsidera o ultimo digito que é o verificador
O que acontece é que não consigo pegar a posição de 8 a 12, ele retorna o 13 tambem, ja tentei de tudo, ate reinstalar o delphi
me ajude preciso disto para sabado
recebo o codigo de barras da balança assim: 2000100000946
o primeiro digito devo desconsiderar = 2
pego em uma variavel os proximos 6 digitos que é o codigo do produto
000100 utilizo o copy(Edit1.text,2,6) -- Esta funcionado perfeito ate aqui
pego em outra variavel mais seis posições que seria o valor do produto
seria copy(Edit1.text,8,12) para desconsidera o ultimo digito que é o verificador
O que acontece é que não consigo pegar a posição de 8 a 12, ele retorna o 13 tambem, ja tentei de tudo, ate reinstalar o delphi
me ajude preciso disto para sabado
Dpinho
Curtidas 0
Respostas
Dpinho
22/09/2006
desculpa ai, erro meu, estava mando o comando errado, não posso mandar copy(Edit1.text,8,12) o segundo argumento é a quantidade de digitos a ler deveria ser 5 então problema resolvido
agora so falta formatar o retorno que no caso é de 0,94 centavos e esta retornando 94,00
agora so falta formatar o retorno que no caso é de 0,94 centavos e esta retornando 94,00
GOSTEI 0
Marco Salles
22/09/2006
agora so falta formatar o retorno que no caso é de 0,94 centavos e esta retornando 94,00
divide por 100
segunda cê tenta outra formatação...
divide por 100
ValorProduto:=formatFloat(´0.00´,strtofloat(copy(Edit1.text,8,5))/100);
me ajude preciso disto para sabado
segunda cê tenta outra formatação...
GOSTEI 0
Dpinho
22/09/2006
Muito obrigado pela ajuda... valeu mesmo
GOSTEI 0