![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con un Grid ( integer values )
Me aparece este error ' no es un valor ineger ' cuando hice un programa que mas o menos dice así:
Rellenar una Grid de 10 x 10 con números aleatorios comprendidos entre el 0 y el 100 y posteriormente encontrar cuantas veces se repite un número dado/indicado por el usuario. Lo que yo hice fue esto : Código:
procedure TForm1.B_TClick(Sender: TObject); var Cols, Reng, Numero: Integer; A : String; Begin Randomize; E_1.Text := A; For cols := 0 to 9 do For reng := 0 to 9 do begin Numero := Random(101); SG_1.Cells[Cols,Reng] := IntToStr(Numero); If StrToInt(A) = Numero then Showmessage(A); end; end; end.
__________________
''Ya se lo que tengo que hacer, pero tengo miedo de hacerlo''
|
|
|
![]() |
|