Random(i),返回字符串(10分)

milesmaqi · 2002-05-04

众所周知，RANDOM （I）是一个范围值， REUSLT =1 ， 2， 3，，，I；
但是我现在想在字符串‘张三’，‘李四’，‘王二麻子’，‘丁五’，，，等中随机得到
他们的名字不知道该如何做到。

天真 · 2002-05-04

呵，你可以把这些值放在数据库中呀
到时，你就这样写
var i:integer;
i:=RANDOM （I）;
'select * from tablename where id='+inttostr(i);

硬木花椒 · 2002-05-04

var
cstr:array [0..9] of string[2];//分别存储零，壹。。。。玖

var1=cstr[random];//ok?

Pipi. · 2002-05-04

RANDOM （I）是一个范围值， REUSLT =0，1 ， 2， 3，，……，I-1；

Fyx · 2002-05-04

case Random(5) of
1: Caption := '张三';
2: Caption := '李四';
3: Caption := '王二麻子';
4: Caption := '刘小秃';
else
Caption := '丁五'
end;

wfh7710 · 2002-07-20

使用字符串数组这样每个字符串在字符数组中都对应着一个数组下标。利用Random()函数的一个随机数。就得到对应的字符串

tan_jian · 2002-07-20

把字符串写道Tstringlist(MM)里面,随机产生索引

var s: string;
s:=MM.strings[random(MM.count)];