排队的程序

Question

我想用D7做一个排队的程序，但又不知道如何下手，没有参考的对像，
目前只知道要完成的有，队列管理，取号，叫号，显示，统计。不知有没有人有过
此类项目的经验，有原码提供可给（RMB）做学习费。。多谢

Answer 1

比较简单的办法,A,B计时器
A往一个listbox存1行内容
B读这个listbox并删除读出来的行

Answer 2

完整的东西要用到线程了
先申明一个全局的公共动态记录型数组
比如
type
 Tmyrecord=record
  a:integer;
  b:string;
  ....//根据需要
 end;var
 myrecords:array of Tmyrecord;/////
A线程增加序号
setlength(myrecords,length(myrecords)+1);
myrecords[length(myrecords)-1].a=1;
myrecords[length(myrecords)-1].b='aaaa';
b线程读取期间你要控制好变量的锁定和阻塞,不是一二句话能说清楚的