ADSENSE

ADSENSE

sexta-feira, 15 de outubro de 2010

Function Random

uses Unit System
A função Random gera números aleatórios dentro de um intervalo especificado. ou seja, 0<=X< Intervalo.

Sintaxe da sua utilização:
Random(Valor);

Ex:
procedure TForm1.Button22Click(Sender: TObject);begin
       label1.Caption:=IntToStr(Random(50));
//Retorna números aleatórios
end;

Um comentário:

  1. boa dica mas se não executar o "randomize" o seu valor aleatório vai ser sempre em sequencia a cada vez que for iniciado o software

    pode ser usar no evento OnCreate do form
    procedure oncreate()
    begin
    randomize;
    end;

    ResponderExcluir