获取随机数组

nextop88

于 2017-06-22 15:21:11 发布

阅读量350

点赞数

分类专栏： DELPHI开发

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

本示例展示了一个简单的程序，用于从预定义的销售反馈列表中随机选取一条反馈信息。通过设置数组长度并填充不同的销售场景反馈，使用随机数生成器选出特定的反馈供后续分析或记录使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var

   s:array of string;

   i:Integer;

   S1:string;

begin

  SetLength(S,7);

  s[0]:='你拨打的电话通话中';

  s[1]:='客户没有意思购买';

  s[2]:='有空再说，现在很忙';

  s[3]:='电话关机呢，下次联系';

  s[4]:='没有打算投资呢';

  s[5]:='电话无人接听呢';

  s[6]:='暂时没有购买住房的打算';

  Randomize;                      // 随机种子   

  i:=Ramdom(7);                   // 随机数 

  S1:=S[i];                       // 随机字符   

end;