Cómo sumar columna de un stringgrid
 

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)

:)

Hola.

Fijate si te sirve así:

Código Delphi [-]
// (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:

Código Delphi [-]
...
begin
  ShowMessageFmt('%8.2f',[SumOfColumn(StringGrid1, 1)]);  // (segunda columna) 
  ...

Saludos :)