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.
De antemano mil gracias.