ActiveDelphi

[vitoraraujo]

Olha ai acho que essa alteração no seu código devera resolver.

codbarras:=EditCodigo.Text;
if length(codbarras) = 13 then
begin
//verifica se o primeiro digito é 2(produto pesado)
pesagem:=copy(codbarras,1,1);
//le o código do produto com 4 digitos
codpesagem:=copy(codbarras,2,4);
if DMTabelas.ibproduto.locate('CodBarras',codpesagem,[]) = true then
unitpeso:=DMTabelas.ibprodutoVALORVENDA.Value;
//le o total do item
totpesagem:=copy(codbarras,8,5);
totpesagemfloat:=strtofloat(totpesagem) / 100; //Aqui está a alteração
//
totpesagem:=formatfloat('###,###,##0.00',totpesagemfloat);
//
qtdencontrada:=floattostr(strtofloat(totpesagem)/unitpeso);
if pesagem = '2'then//produto pesado
begin
EditQtd.Value:=strtofloat(qtdencontrada);
end;
end;

[fabio.avila]

valeu!!!

agora consigo ler a quantidade correta. e no caso de eu estiver usando a balança filizola... seria a mesma programação?

[fabio.avila]

ainda para balança toledo, vou precisar criar outro tópico, fazer o processo inverso, ou seja, gerar um arquivo texto para a balança.