代码大全

type
EVENT = integer;
var
EventAvailable:boolean; { true if an event is available }
function HighestPriorityEvent:Event;
function LowestPriorityEvent:Event;
end Events;

C++

C++

class Buffer
{
public;
typedef int EVENT;
BOOL Eventavailable; /true if an event is available /

EVENT HighestPriorityEvent(void);
EVENT LowestPriorityEvent(void);

Private;
...
};

Pascal

Pascal 4.0 Turbo Pascal

Turbo Pascal
Turbo Pascal 5.0

unit Events;

INTERFACE

type

EVENT=integer;

var

EventAvailable:boolean { true if an event is available }