FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
|||
|
|||
Pues viendo
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); //aqui esta tu error por que nunca inicializas con un numero tu //variable A y A en este momento esta vacio // y por eso te marca el error en StrToInt(A) If StrToInt(A) = Numero then Showmessage(A); end; end; end.
__________________
saludos desde Puebla Mexico.. asanxt@hotmail.com "como siempre a sus ordenes y siempre con buena cara" 'lolita me excitas, perversa piel de melocotón' |
|
|
|