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.
Delphi 2010. Uso de Checkbox
0 alumnos Aprende sobre el elemento de interacción checkbox en Delphi 2010 el autor te expone... [29/11/11] |
Uso de Combobox en Delphi 2010. Instrucciones
22 alumnos En este curso vamos a realizar un proyecto en DELPHI 2010 que nos enseñe las... [01/12/11] |
Uso de Stringgrid en C++Builder 2010
13 alumnos En este curso aprenderemos a usar un Stringgrid de C++BUILDER para usar sus ... [21/11/11] |