Question

delphi7的随机函数是什么？最好是有例子，并且随机函数在一定范围内。

Answer 1

//初始化随机数种子

Randomize;

//产生一个不大于 Range 的随机整数

function Random [ ( Range: Integer) ]: Integer;

//如果没有参数，产生一个 0-1 的实数

function Random: Extended;

//从各种数组中随机返回一个元素

function RandomFrom(const AValues: array of Double): Double; overload;
function RandomFrom(const AValues: array of Integer): Integer; overload;
function RandomFrom(const AValues: array of Int64): Int64; overload;
function RandomFrom(const AValues: array of string): string; overload;

//产生一个从 AFrom 到 Ato 范围内的随机整数

function RandomRange(const AFrom, ATo: Integer): Integer;

Answer 2

人啊，不能懒，百度一搜一大把，比在这提问题快的多。要善用搜索引擎！！！

Randomize; // 初始化内置的随机数生成器
Edit1.Text := IntToStr(Random(100)); //随机生成一个0<N<100的数