Fórum Retificaçao :Somando as linhas selecionadas de um DBGRID #268276

Ola a todos, tenho um programa que retirei no site do clube do delphi e precisava da ajuda de vcs para modificar do meu jeito.
A duvida e essa.

O programa faz automaticamente a soma de todos os campos selecionados dentro do DBGRID depois de clicar no botao ok.

Mais agora eu coloquei dentro do banco de dados um campo logico chamado recebido e queria agora que ele so marcasse os campos onde o recebido fosse igual a false, mas nao funciona.

veja o exemplo a baixo:

No OnClick do botão digite o seguinte código:

var

i: Integer;

Soma: Currency;

begin

Soma := 0;

for i := 1 to DBGrid1.SelectedRows.Count do

begin

if ClientDataSet1.fieldbyname(´recebido).AsBoolean = false then

ClientDataSet1.GotoBookMark(Pointer(DBGrid1.SelectedRows.Items[i-1]));

Soma := Soma + ClientDataSet1.FieldByName(´Salary´).AsFloat;

end;

Edit1.Text := FormatFloat(´R$ #,0.00´, Soma);

end;