Como Faço pra marcar todos os campos logicos desejado

Delphi

11/02/2005

Ola todos os programadores tenho um codigo que eu tirei do sitedo clube do delphi.

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Soma: Currency;
begin
Soma := 0;
for i := 1 to DBGrid1.SelectedRows.Count do
begin
ClientDataSet1.GotoBookMark
(Pointer(DBGrid1.SelectedRows.Items[i-1]));
Soma := Soma + ClientDataSet1.FieldByName(´total´).AsFloat;
end;
Edit1.Text := FormatFloat(´R$ #,0.00´, Soma);
end;

e queria que vcs pudessem me ajudar e o seguinte.

Esse programa faz o calculo do total de todos os campos marcados isso depois que eu apertasse o botao soma e coloquei mais um campo logico chamado recebido, queria que ele marcasse todos os dados que o campo recebido fosse igual a False

obrigado


Pellegrini

Pellegrini

Curtidas 0

Respostas

Somar

Somar

11/02/2005

Se eu entendi uma condição resolveria o problema
Tipo assim :

var
i: Integer;
Soma: Currency;
begin
Soma := 0;
for i := 1 to DBGrid1.SelectedRows.Count do
begin
if RECEBIDO = False then
begin
ClientDataSet1.GotoBookMark
(Pointer(DBGrid1.SelectedRows.Items[i-1]));
Soma := Soma + ClientDataSet1.FieldByName(´total´).AsFloat;
end;
Edit1.Text := FormatFloat(´R$ #,0.00´, Soma);
end;
end;


GOSTEI 0
POSTAR