Como hacer para totalizar una columna de un stringgrid por valor

[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.

[steelha]

Muchas gracias duilioisola por esas lineas ya se como hacer un log file gracias a usted.
Pero la cantidad de lineas inmensas vienen del txt original pero se carga facil en el memo y cuando ejecuto el primer proceso que se encarga de dividir los valores tomar los que necesito y colocar el punto decimal en la posicion correcta no da problema. ahora cuando estoy realizando el segundo paso que seria totalizar esa informacion por numero de autorizacion en cierto punto da el error de outmemory. te pasare el codigo completo incluyendo el archivo si deseas

[steelha]

Aca esta el codigo completo

[steelha]

No puedo enviar el archivo txt ya que el tamaño excede el maximo permitido

[[duilioisola]]

¿Haz probado a importar solo una pequeña parte del fichero?
Copia 10 o 20 lineas del txt original (o el número que tenga sentido) a un txt de prueba y ves qué pasa con el log.

[steelha]

Ya te envie todo, pero si he probado y no me da error sin cancelo el proceso y tengo pocos registros. Lo malo es que es un archivo inmenso y debe trabajarse por completo no lo envían por partes.