Crear una Grid con numeros aleatorios ¿Como le hago?

[aragorneuf]

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]

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]

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

[aragorneuf]

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

[roman]

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

// Saludos

[aragorneuf]

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]

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]

Ya quedo, esto fue lo que hice:

  
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.