delphi 随机

显示全部楼层 · 2010-12-28 12:13:10

我希望做一个在学习用的点名软件
随机 50个人的名字然后单击暂停就随机出一个人的名字？？？
可以随机名字吗？

千问 · 2010-12-28 12:13:10

既然是“点名”，说明“名字已经存在”，那么可以将其定义在一个字符串数组中，随机点名其实就是随机产生一个1～50之间的整数，以它为下标，获得名字字符串数组中的一个元素，即一个名字。constC_asNames : array[ 1..50 ] of string = (
'名字#1',
'名字#2',
......,
'名字#50');function GetRandomName;vari : Integer;begini := Random( 50 ) + 1;Result := C_asNames;end;