Olá amigos estou com uma duvida que está me matando já um bom tempo Estou fazendo um programa de compras, na escolha da compra vá para listbox1 o nome do produto e na listbox2 o valor do produto,o valor tambem vai para o label1, e o numero da quantidade vai para o outro label2, ate ai tudo certo eu fiz, mas ao fazer um duplo click no produto selecionado na listbox1 eu quero que ele diminua o valor dado pela label1 por exemplo: o usario comprou 2 processadores de marcas diferentes por 1000 reais, sendo q 1 processador custa 250 e outro 750, então o usuario quer ter o de 250. Na quantidade eu consgui diminuir mas pra pegar o preço da listbox2 e diminuir apenas o preço do outro processador eu não estou consguindo!! Deem uma olhada no codigo: private
{ Private declarations }
public
{ Public declarations }
end;
var
valor11,valor12,tot1,totalf:real;
quant1:integer;
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.itemindex= 0 then
begin
valor11:=250.00;
listbox1.Items.Add('Processador1');
listbox2.items.Add ('250.00');
tot1:=tot1+valor11;
quant1:=quant1+1;
totalf:=totalf+tot1;
label37.caption:=floattostr(totalf);
end;
if combobox1.itemindex=1 then
begin
valor12:=750.00;
listbox1.Items.Add('Processador2');
listbox2.items.Add ('750.00');
tot1:=tot1+valor12;
quant1:=quant1+1;
totalf:=totalf+tot1;
label37.caption:=floattostr(totalf);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
listbox2.ItemIndex := listbox1.itemindex;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
begin
listbox1.ItemIndex := listbox2.itemindex;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
a:string;
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
ListBox2.Items.Delete(ListBox2.ItemIndex);
quant1:=quant1-1;
if quant1<=0 then
quant1:=0;
label26.Caption:=floattostr(quant1);
end;
end. Tirei algumas coisas se não o codigo ia ficar Gigante! Já tentei de tudo mas fica negativo o valor total ou ele pega o valor errado por exemplo quero tirar só o 250 mas ele tira o de 750! Uma Imagem do programa:
