Ayuda con un StringGrid

[maky]

talvez sea muy sencillo pero apenasestoy aperendiendo a menejar delphi
mira esto es lo que llevo hasta ahora de codigo pero presiento que falta algo a ver si puedes ayudarme ok.

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
SGNums: TStringGrid;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
nums: array of integer;
Tam:integer;
// row:integer;
{ Private declarations }
public
{ Public declarations }
rcount:integer;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var valor:integer;
//begin
//if (row<Tam) then
i, j:Integer;
Str:String;
begin
valor:= StrToInt (Edit1.Text);
setLength (nums,20);
SGNums.Cells[1,1]:=Edit1.Text;
SGNums.RowCount:=SGNums.RowCount+1;
for j := 0 to (SGNums.Rows[i].Count - 1) do begin
//SGNums.ColsCount:=SGNums.ColsCount+1
//SGNums.ColCount;
//SGNums.Row:= SGNums.Row+1;
end;
end;
//edit1.setfocus;
procedure TForm1.FormCreate(Sender: TObject);
begin
SGNums.Cells[0,0]:='Posicion';
SGNums.Cells[1,0]:='Valor';

end;
end.

[[maeyanes]]

Hola...

Veo que eres nuevo en estos foros, así que primero te doy la bienvenida y luego te invito a que leas la Guía de Estilo de estos foros (enlace arriba del banner )

También te pido que cuando publiques código fuente en estos foros, uses las etiquetas [ DELPHI ] [ /DELPHI ] (sin los espacios en blanco). De esta forma tu código se verá más presentable:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SGNums: TStringGrid;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    nums: array of integer;
    Tam:integer;
    // row:integer;
    { Private declarations }
  public
    { Public declarations }
    rcount:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var valor:integer;
  //begin
  //if (row  i, j:Integer;
  Str:String;

begin
  valor:= StrToInt (Edit1.Text);
  setLength (nums,20);
  SGNums.Cells[1,1]:=Edit1.Text;
  SGNums.RowCount:=SGNums.RowCount+1;
  for j := 0 to (SGNums.Rows[i].Count - 1) do begin
    //SGNums.ColsCount:=SGNums.ColsCount+1
    //SGNums.ColCount;
    //SGNums.Row:= SGNums.Row+1;
  end;
end;

//edit1.setfocus;
procedure TForm1.FormCreate(Sender: TObject);
begin
  SGNums.Cells[0,0]:='Posicion';
  SGNums.Cells[1,0]:='Valor';

end;

end.

¿Ves la diferencia?


Saludos...

[maky]

Ok Gracias

[*Caro*]

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

[maky]

Muchas gracias fue de gran ayuda tu respuesta ok