Foros Club Delphi - Crear una Grid con numeros aleatorios ¿Como le hago?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Crear una Grid con numeros aleatorios ¿Como le hago? (https://www.clubdelphi.com/foros/showthread.php?t=8880)

aragorneuf

05-04-2004 02:35:13

Crear una Grid con numeros aleatorios ¿Como le hago?

Hoy sin lugar a dudas he estado metido al 100% con Delphi y ahora estoy haciendo un programa que rellene una Grid de 10 X 10 con números aleatorios comprendidos entre el 0 y el 100 y posteriormente encontrar el número menor de todos.

Realmete algo complicado para mis conocimientos basicos pero con vuestra ayuda lo podre hacer sin menor problema.

Lo que no se usar es el Randomize y tampoco se usar las funciones de una Grid. (Creo que no se usar nada por el momento ( me imagino que se una un draw grid ) )

jachguate

05-04-2004 05:02:05

Valete de un StringGrid.

Randomize se llama solo una vez, para generar una nueva semilla. Luego, podes usar la función Random(101) para obtener valores aleatorios entre 0 y 100.

Podes valerte de un par de ciclos for anidados para generar y asignar los números, haciendo uso de la función IntToStr (o format) para convertir los números en strings y poder asignarlos a las celdas.

Suerte y bienvenido a Delphi!.

(Cualquier duda, pulsar F1)

;)

aragorneuf

05-04-2004 12:12:53

Pues muchas gracias y lo voy a intentar, luego les digo si me salio.

aragorneuf

05-04-2004 23:54:04

No pues no he podido crearlo, ¿alguien me puede echar una mano con el codigo?

roman

06-04-2004 00:05:55

Sería interesante que nos describieras aquí los intentos que has hecho para sobre ellos trabajar.

// Saludos

aragorneuf

06-04-2004 00:34:08

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

roman

06-04-2004 00:41:45

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

aragorneuf

24-04-2004 02:29:48

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.

Gracias a todos por la ayuda.

La franja horaria es GMT +2. Ahora son las 14:23:53.