[Resolvido] Função que retorna um valor randômico

[Michele_Duarte 0]

http://forum.imasters.com.br/public/style_emoticons/default/closedeyes.gif

 

 

function Random [(Range: Integer)];

var

 

Num: Integer;

 

begin

 

Randomize;

 

for Num := 1 to 50 do begin

 

{ escreve na janela em posições randômicas }

 

Canvas.TextOut(Random(Width), Random(Height), 'Olá!');

 

end;

 

end;

 

 

Obs.: 0<=X<Range