source: trunk/Packages/Kernel/Kernel.Classes.pas

unit Kernel.Classes;

interface

uses
  Classes, SysUtils, Contnrs;

type

  { TObjectQueue }

  TObjectQueue = class
    List: TObjectList;
    procedure Enqueue(Item: TObject);
    function Dequeue: TObject;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TObjectQueue }

procedure TObjectQueue.Enqueue(Item: TObject);
begin
  List.Add(Item);
end;

function TObjectQueue.Dequeue: TObject;
begin
  Result := List[0];
  List.Delete(0);
end;

constructor TObjectQueue.Create;
begin
  List := TObjectList.Create;
end;

destructor TObjectQueue.Destroy;
begin
  FreeAndNil(List);
  inherited;
end;

end.