Gerar Numeros

[DanielTM 0]

pessoal, estou precisando gerar numeros no delphi, quero gerar o numero 9 100 vezes, como mexo com php, quero usar o random.

 

fiz uma pesquisa na ajuda do delphi e tentei fazer aq, mas deu erro.

 

vari: integer;Numero: integer; begin		   Randomize;		   for i := 1 to 10 do begin		   Numero[i] := Random(9);

se alguem puder dar uma força

 

o erro que é :

 

Array type required.

[Rodrigo Miss 1]

Opah beleza!

tente assim:

 

var  i: integer;  Numero: array[1..9] of integer;begin  Randomize;  for i:= 1 to 9 do  begin		Numero[i] := Random(100);  end;  ShowMessage(IntToStr(Numero[9]));

nesse caso ele vai gerar 9 numeros ...

[Maikel Scheid 1]

Olá amigo... não sei se entendi bem sua duvidá.... abaixo um código que pega o número 9 e escreve ele 100 vezes no edit.Você pode alterar o valor a ser randomizado definindo outro valor para a variável S.procedure TForm1.BtnRandomClick(Sender: TObject);var I: Integer; S: String;begin S := '9'; For I := 1 To 100 Do Edit2.Text := Edit2.Text + S[Random(length(S)-1)+1];end;Qualquer coisa, post ai de novo.Att