Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 27-08-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 25
Caro Va por buen camino
Hola Maky, porque quieres guardar los datos en un arreglo, no sería mejor que le permitieras llenar directamente dentro de las celdas y que se vaya sumando y mostrando en tu Label, paar permitir editar la celda del StringGrid debes colocar a True la propiedad Options->goEditing, suponiendo que quieres sumar la columna Valor, puedes hacerlo mas o menos de esta forma

Código Delphi [-]
//Nuestro procedimiento que nos suma todas las celdas de la columna 1 (Valor)
procedure TForm1.SumarCeldas;
var
 Fila, Total : Integer;
 Valor : String;
begin
 if SGNums.Col=1 then //Si estamos en nuestra columna 1
  begin
   Total := 0;
   for Fila:=0 to SGNums.RowCount-1 do
    begin
     Valor := SGNums.Cells[1,Fila];
     if Trim(Valor)='' then
      Valor := '0';
     Total := Total + StrToInt(Valor);
    end;
   Label1.Caption := IntToStr(Total);
  end;
end;
 
//Y luego llamamos en estos dos eventos del StringGrid
procedure TForm1.SGNumsSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 SumarCeldas;
end;
 
procedure TForm1.SGNumsExit(Sender: TObject);
begin
 SumarCeldas;
end;

Trata de explicar lo mas que puedas tu problema, para que puedas recibir mas ayuda de todos.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Trabajando con StringGrid rgstuamigo OOP 11 27-08-2008 12:32:55
Ayuda con StringGrid BuenaOnda Varios 1 10-06-2008 05:30:53
Ayuda con Stringgrid sexshop_3 Varios 7 24-08-2007 01:01:10
Ayuda con StringGrid BuenaOnda Varios 7 10-05-2007 08:05:19
Ayuda en el Uso del StringGrid doncowboy OOP 2 24-04-2007 19:26:33


La franja horaria es GMT +2. Ahora son las 01:16:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi