Agregando articulos a un StringGrid

[ecfisa]

Hola.

Si no entendí mal el problema, tendría que quedar así:

Código Delphi [-]
...
Var
  Precios, Neto, Impuesto, ITBIS : Real;
Begin
  if SG.Row = SG.FixedRows then // ¿ estamos la línea de cabeceras ?
    SG.Row := SG.Row + 1;  // avanzar una linea
  //----------------------------------------------------------
  {
     ... el resto de tu código 
  }
  //----------------------------------------------------------
  SG.RowCount := SG.RowCount + 1; // Agregar otra línea
  SG.Row := SG.Row + 1;           // el siguiente ingreso irá en la línea agregada
end;

Saludos

[feliz-58]

Empezado por ecfisa

Hola.

Si no entendí mal el problema, tendría que quedar así:

Código Delphi [-]
...
Var
  Precios, Neto, Impuesto, ITBIS : Real;
Begin
  if SG.Row = SG.FixedRows then // ¿ estamos la línea de cabeceras ?
    SG.Row := SG.Row + 1;  // avanzar una linea
  //----------------------------------------------------------
  {
     ... el resto de tu código 
  }
  //----------------------------------------------------------
  SG.RowCount := SG.RowCount + 1; // Agregar otra línea
  SG.Row := SG.Row + 1;           // el siguiente ingreso irá en la línea agregada
end;

Saludos

"Fuera de Rango"

creo que lo enfocaste mal, me explico, la primera vez que se va a trabajar con el Grid, esta la cabecera mas 1 fila vacia, con mi codigo, "lleno" esa fila vacia y finalmente agrego la linea siguiente, es decir queda asi:

Código Delphi [-]
Var
Precios, Neto, Impuesto  : Real;
Begin
SG.Row := SG.Rowcount - 1;
 //----------------------------------------------------------
  {
     ... el resto del código 
  }
  //----------------------------------------------------------
SG.RowCount := SG.RowCount + 1;

Seria igual a esto:

---Cabecera---
---Primer articulo---
---Fila Vacia-----

con mi codigo, cada vez que agrego un articulo, al final tengo que dejar la siguiente linea, porque si agrego la linea antes de agregar el articulo, la primera vez, quedaría una fila vacia Arriba, es decir.

Código Delphi [-]
Var
Precios, Neto, Impuesto  : Real;
Begin
SG.RowCount := SG.RowCount + 1;
SG.Row := SG.Rowcount - 1;
 //----------------------------------------------------------
  {
     ... el resto del código 
  }
  //----------------------------------------------------------

---Cabecera---
---Fila Vacia-----
---Primer articulo---

[feliz-58]

Creo que lo resolvi haciendo esto:

Código Delphi [-]
if (SG.RowCount = 2) and (SG.Cells[0, SG.Row] = '') then

else
SG.RowCount := SG.RowCount + 1; // Agregar otra línea

SG.Row := SG.Rowcount - 1;

[cloayza]

Nunca me ha cuajado porque muchos foreros utilizan StringGrid para mostrar datos en vez de usar TDBGrid u otra variante como TwwDBGrid de Infopower...

Según mi humilde opinión es como reinventar la rueda...

Podrían indicar que beneficios nos brinda esta técnica de usar StringGrid v/s DBGrid..

Se los agradezco y talvez me pueda reconvertir...
Un abrazo

[feliz-58]

Empezado por cloayza

Nunca me ha cuajado porque muchos foreros utilizan StringGrid para mostrar datos en vez de usar TDBGrid u otra variante como TwwDBGrid de Infopower...

Según mi humilde opinión es como reinventar la rueda...

Podrían indicar que beneficios nos brinda esta técnica de usar StringGrid v/s DBGrid..

Se los agradezco y talvez me pueda reconvertir...
Un abrazo

Mira realmente en mi caso no había explorado la posibilidad de usar el DBGrid con el clientdataset pero la diferencia es abismal, y el uso es muy versátil.