blob: a401f568996d4429405a686982b8d3838bb6577d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ This include is a little a-la-templates hack
here are all the "default" type defines which you need to
redefine yourself after including this file. You only redefine those
which are used ofcourse }
{$ifndef __front_type__}
{$ERROR Undefined type for quasi-template!}
{$endif}
const
MAX_FRONT_ITEMS = 10;
type
TLFront = class // it's a queue ladies and gents
protected
FEmptyItem: __front_type__;
FItems: array[0..MAX_FRONT_ITEMS-1] of __front_type__;
FTop, FBottom: Integer;
FCount: Integer;
function GetEmpty: Boolean;
public
constructor Create(const DefaultItem: __front_type__);
function First: __front_type__;
function Remove: __front_type__;
function Insert(const Value: __front_type__): Boolean;
procedure Clear;
property Count: Integer read FCount;
property Empty: Boolean read GetEmpty;
end;
|
