Manipular ListBox

Delphi

02/03/2004

tenho um listbox que recebe apenas os itens código de uma query.
nessa query referente a cada código que esta no listbox tem um valor,
quero somar esses valores de acordo com cada código selecionado no listbox e mostrar o total de valores em um label, através de um Botão.
Ex: está selecionado cod 1 e 3
cod 1 = valor 10 <-
cod 2 = valor 11
cod 3 = valor 5 <-

Label := total 15

como testar se aquele código por ex: (1) que está selecionado tem determinado valor(10) na tabela e pegar esse valor armasenar em um vetor e somar com outros posteriormente tmbm selecionados como cod (3), no caso somaria os valores do cod 1 e 3 = 15.

Obrigado

[b:022436be66][color=red:022436be66]Título editado pelo MOderador (AZ) - Removido: ´Urgente´[/color:022436be66][/b:022436be66]


Querra

Querra

Curtidas 0

Respostas

Ltres

Ltres

02/03/2004

Cara naum sei se é bem isso q vc quer, mas qualquer coisa mande ai...

procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
  sn: currency;
begin
  sn := 0;
  SQLQuery1.First;
  while not SQLQuery1.Eof do
  begin
    for n:=0 to ListBox1.SelCount-1 do
    if ListBox1.Selected[n] = IntToStr(SQLQuery1.FieldByName(´CODIGO´).AsInteger) then
    begin
      sn := sn + SQLQuery1.FieldByName(´VALOR´).AsCurrency;
      Break;
    end;
    SQLQuery1.Next;
  end;

  Showmessage(CurrToStr(sn));
end;



GOSTEI 0
POSTAR