Record helpers can do wonders for code clarity.

Record helpers can do wonders for code clarity.
// Never mind the silly example

TResult = (CompletedOK, PartiallyPerformed, NothingHappened, HorriblyWrong);

function DoSomething:TResult;
begin
Result := PartiallyPerformed;
end;

How do we determine failure vs success?

if not DoSomething = CompletedOK then ...?

What about Partially performed and nothing happened?

Enter the helper:

TResultHelper = record helper for TResult
function Failed:Boolean;
function Success:Boolean;
end;

function TResultHelper.Failed: Boolean;
begin
Result := (Self = HorriblyWrong);
end;

function TResultHelper.Success:Boolean;
begin
Result := not Failed;
end;

Now we can write
if DoSomething.Failed then ...

Note that you also can enter the murky waters of obfuscation through helpers, but at least the murkiness will be consistent :P