获取随机数组

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;