FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
No pues no he podido crearlo, ¿alguien me puede echar una mano con el codigo?
|
#2
|
||||
|
||||
Sería interesante que nos describieras aquí los intentos que has hecho para sobre ellos trabajar.
// Saludos |
#3
|
|||
|
|||
Bueno pues en realidad no llevo mucho por que no encuentro como relacionar el random con los cuadritos de ls stringgrid.
¿Alguien sabe como hacerle? De antemano Gracias
__________________
''Ya se lo que tengo que hacer, pero tengo miedo de hacerlo''
|
#4
|
||||
|
||||
La función Random te devolverá un número entero mientras que las celdas del StringGrid aceptan cadenas de caracteres. Lo único que tienes que hacer es convertir el resultado de Random a String usando IntToStr.
// Saludos |
#5
|
|||
|
|||
Ya quedo, esto fue lo que hice:
Código:
procedure TForm1.B_TClick(Sender: TObject); var cols, reng, numero, mayor: integer; begin randomize; mayor:=0; for cols:=0 to 9 do for reng:=0 to 9 do begin Numero:=random(101); SG_1.cells[cols,reng]:= inttostr(Numero); if numero > mayor then mayor:= numero; end; showmessage(inttostr(Mayor)); end; end.
__________________
''Ya se lo que tengo que hacer, pero tengo miedo de hacerlo''
|
|
|
|