StringGrid

Delphi

22/08/2003

Tem como somar os valores do tipo (real) de uma coluna toda de um StringGrid?

vAleuuuuuuuuuu


Thiago

Thiago

Curtidas 0

Respostas

Fbsouza

Fbsouza

22/08/2003

var
  soma:real;
  i:integer;
begin
  soma:=0;
  for i:=0 to stringgrid.rowcount-1 do
    soma:=soma+strtoint(stringgrid.cells[0,i]);
end;


Não testei. Mas a lógica é por ai


GOSTEI 0
Thiago

Thiago

22/08/2003

nao deu certo, da um erro acusando nao ser um valor integer, estou usando valores em dinheiro, real, nesta coluna


:? :?:


GOSTEI 0
Fbsouza

Fbsouza

22/08/2003

Foi mal altera esta linha.
soma:=soma+strtoint(stringgrid.cells[0,i]);


Para

soma:=soma+strtofloat(stringgrid.cells[0,i]);



GOSTEI 0
Thiago

Thiago

22/08/2003

procedure TForm1.Button1Click(Sender: TObject);
var
soma:real;
i:integer;
begin
soma:=0;
for i:=0 to stringgrid1.rowcount-1 do
soma:=soma+strtofloat(stringgrid1.cells[0,i]);
end;

nao adianta, agora acusa is not valid floating point value!

tenho uma dbgrid que envia dados para essa stringgrid cujo disparo eh:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
des : string;
val : real;
begin
des := Dm.tbl_proPro_descricao.Value;
val := Dm.tbl_proPro_valor.Value;
If Tabsheet1.Visible = true then begin
StringGrid1.Cols[0].Add(´1´);
StringGrid1.Cols[1].Add(des);
StringGrid1.Cols[2].Add(FormatFloat(´#,0.00´, val));
end;


GOSTEI 0
Bacalhau

Bacalhau

22/08/2003

Já arranjaste alguém para terminar o teu programa? :shock:


GOSTEI 0
POSTAR