请问如何能随机产生数字！

Question

我现在做一个有关药品的系统，想要其中要一个edit控件每次运行的时候都能随机产生数字，作为“药品入库单号”，当天日期为前面的数字，后面4个数字，例如：060501+0001，每添加一次进数据库，后面的4位数，就加1。。
请问能否实现，如果这个控件不能实现，能否用其他控件来实现！

Answer 1

随机函数是Random，但这里不适合用它。应该获取当天日期，后四位数用一个全局变量，例如：var i:integer=0;procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  Edit1.Text:=FormatDateTime('yymmdd',Date)+Format('+%.4d',[i]);
end;

Answer 2

呵呵， 要是用C呢， 就比较简单了，
srand(time(NULL));int i = rand() % NUM;

Answer 3

兄弟，我用的软件是delphi，其语言是pascal语言！

Answer 4

如果要随机就是这样：Randomize;
Edit1.Text:=FormatDateTime('yymmdd',Date)+Format('+%.4d',[Random(10000)]);