Cómo sumar columna de un stringgrid

[Edwardfeliz]

Ya que estamos aqui, y para no abrir otro hilo (ya que he abierto varios en los ultimos dias xD)
Como puedo sumar mi columna total?
Ojo, los valores tienen punto y coma (1,000.00)

:)

[ecfisa]

Hola.

Fijate si te sirve así:

// (ColNo basado en índice cero)
function SumOfColumn(SG: TStringGrid; const ColNo: Integer): Extended;
var
r: Integer;

begin
Result := 0;
for r := SG.FixedRows to SG.RowCount-1 do
Result := Result + StrToFloatDef(
StringReplace(SG.Cells[ColNo, r], ',', '', [rfReplaceAll]), 0);
end;


Ejemplo de uso:

...
begin
ShowMessageFmt('%8.2f',[SumOfColumn(StringGrid1, 1)]); // (segunda columna)
...


Saludos :)