[fpc-pascal] Can I define a custom "simple" type for my applications?

[dmitry boyarintsev]

> TGraemeBoolean = (gbNull, gbTrue, gbFalse);

imho, gbFalse should come before gbTrue.

how about that?

interface

TGraemeBoolean = (gbNull = -1, gbFalse = 0, gbTrue =1);

function dbBool(g: TGrameBoolean): Boolean; inline;
function dbAssigned(gTGrameBoolean): Boolean; inline;

implementation

function dbBool(g: TGrameBoolean): Boolean; inline;
begin
  Result := g <> gbFalse;
end;

function dbAssigned(gTGrameBoolean): Boolean; inline;
begin
  Result := g <> gbNil;
end;