Como hacer para totalizar una columna de un stringgrid por valor

[[duilioisola]]

El problema parece estar en que DataGridAgrupado no está inicializado y tiene 0 filas.
Luego FilaActual = 0
En la siguiente linea le dices que guarde en la linea -1 (FilaActual-1) un valor.

Código Delphi [-]
   filaactual := DataGridagrupado.RowCount;
   DataGridagrupado.Row := filaactual;
   DataGridagrupado.Cells[0,filaactual-1] := DataGrid.Cells[0,i];

Quizás deberías mover la línea que inserta una nueva línea al principio.

Código Delphi [-]
  for i := 1 to (DataGrid.RowCount-1) do
  begin
    DataGrid.Row := i; //Posicionar en 1ra fila a trabajar
    If Trim(DataGrid.cells[0,i]) <> '' then
    begin
      If Trim(DataGrid.cells[0,i]) <> Trim(romp) then
          begin
            DataGridagrupado.AddRow;
            filaactual := DataGridagrupado.RowCount;
            DataGridagrupado.Row := filaactual;
            DataGridagrupado.Cells[0,filaactual-1] := DataGrid.Cells[0,i];
            DataGridagrupado.Cells[1,filaactual-1] := DataGrid.Cells[1,i];
            DataGridagrupado.Cells[2,filaactual-1] := FloatToStr(total);

[steelha]

Ok gracias probaré, pero por demas ambos stringgrid traen por default 2 filas una para la fixed row (que es el encabezado) y una fila mas sino tedeja el fixed row como si fuera una fila normal

[steelha]

Ya lo intente pero aun asi me dice Index out of range

[steelha]

Ok problema de index out range resuelto, pero aun me falta mejorar la rotura de total por el valor de la columna 0, Gracias por la ayuda

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
  ruta : string;
  dia  : Word;
  mes  : Word;
  ano  : Word;
  hor  : Word;
  min  : Word;
  sec  : Word;
  mil  : Word;
  i    : Integer;
  romp : string;
  total: Real;
  filaactual : integer;
begin
  DecodeDate(Now,ano,mes,Dia);
  DecodeTime(Now,hor,min,sec,mil);
  ruta := OpenDialog1.InitialDir +'Universal_'+inttostr(Dia)+inttostr(mes)+inttostr(ano)+'_'+inttostr(hor)+inttostr(min)+inttostr(sec  )+'.txt';

  i     := 0;
  total := 0;
  filaactual := 0;
  romp  := '';
  romp  := Trim(DataGrid.Cells[0,2]);
  for i := 1 to (DataGrid.RowCount-1) do
  begin
    DataGrid.Row := i; //Posicionar en 1ra fila a trabajar
    If Trim(DataGrid.cells[0,i]) <> '' then
    begin
      If Trim(DataGrid.cells[0,i]) <> Trim(romp) then
          begin
            filaactual := DataGridagrupado.RowCount;
            DataGridagrupado.Row := filaactual-1;
            DataGridagrupado.Cells[0,filaactual] := DataGrid.Cells[0,i];
            DataGridagrupado.Cells[1,filaactual] := DataGrid.Cells[1,i];
            DataGridagrupado.Cells[2,filaactual] := FloatToStr(total);
            total := 0;
            total := total + StrToFloat(DataGrid.cells[2,i]);
            romp  := Trim(DataGrid.cells[0,i]);
            DataGridagrupado.AddRow;
          end
      else
          total := total + StrToFloat(DataGrid.cells[2,i]);
    end;
  end;

  DataGridagrupado.SaveToCSV(ruta);
end;

[steelha]

Bueno el codigo anterior no da ningun error ahora, pero tampoco me coloca nada en el grid solo aparecen una cantidad x de filas en blanco

[steelha]

Ok, todo marcha como quería excepto por un error que no se si tiene solución. Explico: cargo un archivo txt sin separación (no csv, no tab) en un memo (todo bien), luego obtengo los datos que me interesan con Copy(componente, posición,cantidad) perfecto, ya con estos datos los paso a un grid (stringgrid de Devexp tadvsringgrid) todo de maravilla, como existen datos repetidos por un valor x debo dar un total para ese registro (wow cuanto me tomo pero listo....ah gracias por la ayuda :P). Acá es donde viene el error cuando estoy creado en la nueva stirnggrid los valores acumulado obtengo un Outmemory y se rompe todo el proceso es decir me quedo sin memoria para seguir procesando. No se como solucionar esto si necesitan código completo para analizar y optimizarlo no hay ningun problema es un trabajo que debo tener listo para poder procesar los datos enviados de una aseguradora y no digitar toda esa información la cual es mucha tanto así que excel no carga el archivo completo.

[[duilioisola]]

Agrega este metodo, para crear un log a un fichero que se llame igual que la aplicación, pero con extensión .log
Ten en cuenta que agregará (Append) lineas. Deberás borrarlo cada vez que lo ejecutes.

Código Delphi [-]
procedure TForm1.Log(s: string);
var
  F : TextFile;
  FileName : string;
begin
  FileName := ChangeFileExt(Application.ExeName, '.log');
  AssignFile(F, FileName);
  try
     Append(F);
  except
     try
        Rewrite(F);
     except
        on e: Exception do
           ShowMessage('Error al abir fichero : ' + FileName + #13 + e.Message);
     end;
  end;
  WriteLn(F, FormatDatetime('[yyyy-mm-dd hh:nn:ss.zzz] ', Now) + s);
  CloseFile(F);
end;

Luego agrega llamadas a este metodo

Código Delphi [-]
  Log(Format('Inicio bucle. Lineas: %d', [DataGrid.RowCount]));
  for i := 1 to (DataGrid.RowCount-1) do
  begin
    DataGrid.Row := i; //Posicionar en 1ra fila a trabajar
    Log(Format('Lineas: %d - %s', [i, DataGrid.cells[0,i]]));
    If Trim(DataGrid.cells[0,i]) <> '' then
    begin
      If Trim(DataGrid.cells[0,i]) <> Trim(romp) then
          begin
            filaactual := DataGridagrupado.RowCount;
            DataGridagrupado.Row := filaactual-1;
            DataGridagrupado.Cells[0,filaactual] := DataGrid.Cells[0,i];
            DataGridagrupado.Cells[1,filaactual] := DataGrid.Cells[1,i];
            DataGridagrupado.Cells[2,filaactual] := FloatToStr(total);
            total := 0;
            total := total + StrToFloat(DataGrid.cells[2,i]);
            romp  := Trim(DataGrid.cells[0,i]);
            DataGridagrupado.AddRow;
            Log(Format('   Agrupado. Fila Actual: %d - %s', [filaactual, DataGridagrupado.Cells[0,filaactual]]));
          end
      else
      begin
          total := total + StrToFloat(DataGrid.cells[2,i]);
          Log(Format('   Agrego a Total: %s', [DataGrid.cells[2,i]));
      end;
    end;
  end;
  Log(Format('Fin bucle'));

Supongo que verás que de alguna manera FilaActual se sale de control y toma un valor muy alto, creando esa cantidad de filas.