upubstructs.pas

本模型是在内存中创建 n 个工人线程, 1. 在无任务时处于休眠状态,不占用CPU时间, 2. 在有任务时,被唤醒,取得任务,完成任务后,又自动休眼.

unit uPubStructs;

interface
type
  PTask = ^TTask;
  TTask = record
    FID: integer;
    FCMD: string[50];
  end;

implementation

end.