随机生成时间

Question

如何在给定的时间范围内，把时间随机的分配给很多人，可以重复。
比如在7：00--8：00 这个时间段，把时间随机的分给200个人，
张三 7：10：38
李四 7：21：22
王五 7：42：21

Answer 1

时分秒分别取随机数
var
  h,m,s:Integer;
begin
  Randomize;
  h := 7+Random(2);
  m := Random(60);
  s := Random(60);
  ShowMessage(IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
end;

Answer 2

直接RANDOM取時分秒（可隨機取數），然後將其寫在Thread中最好

Answer 3

var
  h,m,s:Integer;
begin
  Randomize;
  h := Random(24);
  m := Random(60);
  s := Random(60);
  ShowMessage(IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
end;