FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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''
|
|
|
|