An alternative code notation that is possible in DELPHI.

[hindermath]

An alternative code notation that is possible in DELPHI is shown here using the function TInvoice.GetStatus (page 118/119). In this case, only incomplete statements in if...then... else statements don't start with the begin...end-block, but I omit these two key words. This is generally allowed in DELPHI and can lead to a shortened spelling, which may be easier to read for some. But that's a personal preference as a developer.

FUNCTION TInvoice.GetStatus: TInvoiceStatus;
BEGIN
  Result := TInvoiceStatus.ReadyItems;
  IF self.TotalAmount > 0 THEN
    IF self.AmountDue > 0 THEN
      Result := TInvoiceStatus.ReadyPayments
    ELSE
      IF self.AmountDue < 0 THEN
        Result := TInvoiceStatus.Overpaid
      ELSE
        IF self.Transactions.Count = 0 THEN
          Result := TInvoiceStatus.ReadyProcess
        ELSE
          Result := TInvoiceStatus.Processed
END;