StringGrid

Question

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

Fbsouza · Answer

[code:1:87bb2ad1f2]var  soma:real;  i:integer;begin  soma:=0;  for i:=0 to stringgrid.rowcount-1 do    soma:=soma+strtoint(stringgrid.cells&#91;0,i&93;);end;[/code:1:87bb2ad1f2]N�o testei. Mas a l�gica � por ai...

Thiago · Answer

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

Fbsouza · Answer

Foi mal altera esta linha.[code:1:a21b5179e3]soma:=soma+strtoint(stringgrid.cells&#91;0,i&93;); [/code:1:a21b5179e3]Para[code:1:a21b5179e3]soma:=soma+strtofloat(stringgrid.cells&91;0,i&93;); [/code:1:a21b5179e3]...

Thiago · Answer

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;

Bacalhau · Answer

J� arranjaste algu�m para terminar o teu programa? :shock:...

F�rum StringGrid #176618