Olá Luan, tudo bem? Estou tentando desenvolver um aplicativo tambem para uma balanca jundiai, consegui ler o peso. Estou usando o MySql como BD, instalei i TCOMPORT no delphi de acordo com o video:
://youtu.be/CJbr4OZ5rKk
Depois eu criei um DBEdit onde apresento o peso lido sem formatação, pra acompanhar, daí apliquei pelo botão Peso_Entrada uma rotina para salvar no campo DBEdit Peso1 que irá salvar como Peso_entrada no BD;
procedure TForm1.Button1Click(Sender: TObject);
begin
pesocom := Copy(Edit1.Text,3,6);
DBEdit15.Text := FormatFloat('0', StrToFloat(pesocom));
if (StrToInt(DBEdit15.Text)<>0)and((DBEdit16.Text)= EmptyStr) then
begin
DBEdit16.Text:= FormatFloat('0', StrToFloat(pesocom));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
pesocom := Copy(Edit1.Text,3,6);
DBEdit17.Text := FormatFloat('0', StrToFloat(pesocom));
if (StrToInt(pesocom)<>0) and ((DBEdit17.Text)= EmptyStr) then
pesosaida:=StrToInt(pesocom);{variavel de peso de saida recebe o peso filtrado}
DBEdit17.Text := FormatFloat('0', (Pesosaida));{Escreve Vpesosaida sem zero esquerda}
pesoliq:= pesosaida-pesoentrada; {carrega o peso liquido para manipular}
