Question

用delphi做一个随机抽签的程序

Answer 1

随便给你个简单的吧
procedure TForm1.Button1Click(Sender: TObject);
var
StrArray:array of String;
r:integer;
begin
SetLength(StrArray,3);
StrArray[0]:='上签';
StrArray[1]:='中签';
StrArray[2]:='下签';
randomize;
r:=random(strtoint(FormatDateTime('HHSS',now)));
case r mod 3 of
0:showmessage(StrArray[0]);
1:showmessage(StrArray[1]);
2:showmessage(StrArray[2]);
end;
end;

Answer 2

用randomize及random就可以了