Delphi 基础生成随机数

在 Delphi 中，可以使用 Random 函数来生成随机数。Random 函数会返回一个大于等于 0 且小于 1 的实数。

1. 生成随机数

使用 Random 函数生成随机数的格式如下：

Randomize;  // 可选的随机数种子初始化
MyRandomNumber := Random(MaxValue);

其中：

• Randomize 函数可选，用于初始化随机数的种子，可以在应用程序运行时只调用一次；
• MaxValue 为随机数的最大值，是一个整数类型（比如 100），生成的随机数范围是 [0, MaxValue)。

2. 例子

下面是一个简单的例子，演示如何生成随机数并输出结果：

program RandomNumber;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I, RandomNumber: Integer;
begin
  // 初始化随机数种子
  Randomize;

  // 生成 10 个随机数
  for I := 1 to 10 do
  begin
    RandomNumber := Random(100); // 生成 0 到 99 之间的随机数
    Writeln(RandomNumber);
  end;

  Readln; // 等待用户按回车键结束程序
end.

3. 总结

本文介绍了 Delphi 中生成随机数的方法和例子。当我们需要使用随机数时，可以使用 Random 函数来方便地生成。同时，为了确保生成的随机数是真正随机的，通常需要在使用 Random 函数之前调用 Randomize 函数初始化随机数种子。