Tirar o Check do item selecionado no checklistbox

Delphi

23/01/2006

bem utilizo o seguinte codigo para selecionar um list de Ordem de Serviço para faturar, o problema é que quando o cliente resolve desmarcar alguns OS, ele funciona, mas se desmarcar a ultima OS o Edit continua com o valor e preciso limpar o Edit. alguem poderia me ajudar a resolver esta situação

[color=red:4a22df37c6]procedure TForm_receitas.CheckListBox1ClickCheck(Sender: TObject);
var
i:integer;
valor: Currency;
Texto : String;
begin
for i := 0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked[i] then
begin
Curdi1.value := 0;
texto := Trim(CheckListBox1.Items[i]);
DM.QConrece.Locate(´Numero´, Texto, [loPartialKey, loCaseInsensitive]);
valor := Valor + DM.QConrece.FieldByName(´valoros´).AsCurrency;
Curdi1.value := valor;
end;

Application.ProcessMessages;
end;[/color:4a22df37c6]


Dpinho

Dpinho

Curtidas 0

Respostas

Aasn

Aasn

23/01/2006

Olá DPinho,

inicialize a variável valor antes do ´for´.

begin

valor := 0;

for i := 0 to CheckListBox1.Count-1 do
     if CheckListBox1.Checked[i] then


[]´s
AASN


GOSTEI 0
POSTAR