Como asignar registro de dbgrid en StringGrid?

[ezequiel913]

Código Delphi [-]
...
type
  TStringGrid = class(Grids.TStringGrid);
...
implementation
...
begin
 StringGrid1.DeleteRow(StringGrid1.Row); // Borra fila actual.
end;

Hola Ecfisa!! queria saber si me podes explicar un poco mas este procedimiento, osea lo que yo quiero es poder eliminar la fila del StringGrid que esta seleccionada.

Saludos. Gracias!!

[Casimiro Noteví]

No soy Ecfisa, pero te lo explicaré, es fácil:

Código Delphi [-]
StringGrid1.DeleteRow(StringGrid1.Row); // Borra fila actual.

StringGrid1.Row devuelve el número de fila donde está posicionado el
cursor en el grid, o sea, en la fila de la celda donde está.
Imagina que está posicionado en la fila 2.

Es lo mismo el código anterior, que hacer directamente:

Código Delphi [-]
stringgrid1.DeleteRow(2);

[ezequiel913]

Gracias Casimiro Notevi!!!
me ayudo mucho tu explicacion.

Saludos!!

[ezequiel913]

Empezado por ezequiel913

Gracias Casimiro Notevi!!!
me ayudo mucho tu explicacion.
esto se lo dedico a mi NOVIA SOL que la re amo,y perdon roge por no lllevarte al asado
Saludos!!

[ezequiel913]

Hola Gente!!

bueno el tema que tengo es que me elimina mal la fila que selecciono. como es esto??

selecciono una fila del StringGrid y apretó el botón borrar me borra la fila que seleccione pero parece que la deja almacenada en algun lado, una vez que la borre y despues la quiero cargar de vuelta tengo una validacion que no me deja entrar 2 filas iguales, osea me dice que ya fue cargada esa fila, pero no tiene que ser asi, por que yo la borre con anterioridad, eso quiere decir que no me borro del todo la fila que le dije antes. por que en algun lado quedo registrado sino no me tendria que decir que ya fue cargado.

este es el codigo de borrar que tengo:

Código Delphi [-]
  If (SG.Cells[1,SG.Row] = '') or (SG.Row = 0) Then Begin

   Application.MessageBox('No se puede eliminar esta fila','Mensaje');
   Exit;
  End
  Else begin

     SG.DeleteRow(SG.Row);
  
   end;

bueno espero que se entienda lo que queiro decir.

saludos!!!

[Casimiro Noteví]

Pues no, no se entiende

En tu código dice:

Código Delphi [-]
If (SG.Cells[1,SG.Row] = '') or (SG.Row = '0') Then
Begin
  Application.MessageBox('No se puede eliminar esta fila','Mensaje');    
  Exit;   
End   
Else 
begin       
  SG.DeleteRow(SG.Row);       
end;

Resumiendo: si la celda está vacía o tiene un cero, saca un mensaje y sale. NO borra.
Si tiene algo escrito distinto de '' y distinto de cero, (que por cierto tendrás que poner el cero entre comillas porque el stringgrid sólo almacena cadenas)
entonces sí la borra.

¿Y cuál es el problema entonces?

[ezequiel913]

Empezado por Casimiro Notevi

Pues no, no se entiende

En tu código dice:

Código Delphi [-]
If (SG.Cells[1,SG.Row] = '') or (SG.Row = '0') Then
Begin
  Application.MessageBox('No se puede eliminar esta fila','Mensaje');    
  Exit;   
End   
Else 
begin       
  SG.DeleteRow(SG.Row);       
end;

Resumiendo: si la celda está vacía o tiene un cero, saca un mensaje y sale. NO borra.
Si tiene algo escrito distinto de '' y distinto de cero, (que por cierto tendrás que poner el cero entre comillas porque el stringgrid sólo almacena cadenas)
entonces sí la borra.

¿Y cuál es el problema entonces?

Lo que esta dentro del IF es para que no borre una linea que esta vacía y tampoco para que no borre la linea donde están los títulos de las columnas.

el tema es así:
- tengo que ingresar datos de productos en un StringGrid con su respectiva cantidad, si quiero ingresar mas cantidad del mismo producto solo modifico la columna de cantidad. si por alguna razón elimino este producto y después lo quiero ingresar devuelta me dice que ya fue cargado anteriormente, eso quiere decir que en algún lado quedo registrado ese Producto en el StringGrid o en otro lado.
Tengo que poder cargar productos y eliminarlos cuantas veces quiera, y si ya fue eliminado del StringGrid poder volver a cargarlo sin ningún problema.

sino se entiende avísame de vuelta.

saludos