Hoy aprenderemos a usar un Stringgrid de Delphi 2010, a cómo usar sus  filas y sus columnas, para eso haremos un pequeño proyecto en la cual usaremos una matriz de números y en la cual los datos serán llenados por el usuario, no permitiremos que se puedan escribir letras solo números en lo EDIT, y además no dejaremos que se introduzcan datos vacíos en los EDIT.

Para quienes no lo saben Delphi es un entorno de desarrollo de programas el cual permite crear diferentes tipos de aplicaciones para distintos sistemas operativos. A continuación estarás conociendo el uso que podemos darle a los Stringgrid dentro de Delphi 2010.

Debemos iniciar abriendo un el entorno de DELPHI 2010 y creando un nuevo proyecto, tal como se  muestra en siguiente imagen:

Una vez hecho esto arrastramos un STRINGGRID, tres LABELS, tres EDIT y un botón haciendo que nuestro formulario quede de esta manera:

Ahora guardamos nuestro proyecto, haciendo clic en FILE y SAVEL ALL como se muestra en la imagen:

Posteriormente vamos a realizar un clic en el componente EDIT1 y después iremos a sus propiedades y pondremos que solo pueda entrar números, lo mismo con el EDIT2 y con el EDIT3como se muestra en la siguiente imagen:

NUMBERSONLY (TRUE)

Ahora hacemos clic en el formulario y entramos a sus propiedades o inspector de objetos que está en la parte izquierda inferior por defecto  y hacemos  clic en la pestaña eventos después hacemos doble clic en el evento ONCREATE así como se muestra en la imagen:

Una vez demos el doble clic nos saldrá el editor de código y escribiremos el siguiente código:

var

i : integer;

begin

StringGrid1.Cells[0,0] := 'Celdas'; //para las nomenclatura

for i:= 0 to 4 do

  begin

  StringGrid1.Cells[0,i]:= IntToStr(i);  //para indexer las filas

            StringGrid1.Cells[i,0]:= IntToStr(i); //para indexer las columnas

  end;

end;

Debe quedarnos como en la siguiente imagen:

Cuando hayamos realizado todo esto, volvemos al diseño del formulario y le hacemos doble clic en el botón Insertar para entrar al editor de código del botón el cual deberá mostrarnos esto:

Ahora en medio de BEGIN y END; o sea en la línea 4 (puede que  en tu editor de código no esté en la línea 4 para asegúrate de escribir en medio de BEGIN y END; de la función BUTTON1CLICK) arriba en la imagen escribimos es el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);

var

fil : integer;

col : integer;

num : integer;

begin

//verificamos que ningun dato este vacio

if ((Length(Edit1.Text)= 0) or (Length(Edit2.Text)= 0) or (Length(Edit2.Text)= 0)) 

then

begin

  ShowMessage('Todos los datos son obligatorios');

end

else

begin

  fil := StrToInt(Edit1.Text);

  col := StrToInt(Edit2.Text);

  num := StrToInt(Edit3.Text);

  if( (fil > 0) and (col > 0) and (num > 0) and (fil<5) and (col<5)) then

  begin

    StringGrid1.Cells[col,fil]:=IntToStr(num);

  end

  else

  begin

    ShowMessage('Error uno de los datos es muy grande');

  end;

end;

end ;

Si lo hemos hecho bien nos debe salir como en la siguiente imagen:

Ahora solo nos quedará guardar nuestro proyecto y ejecutarlo, verás cómo te funciona.

ýQuieres ser el primero en opinar sobre Uso de Stringgrid en Delphi 2010?