Class Operator Inc

ClassOperatorInc.pas

type
  TVenda = record
    QuantidadeItensVendidos: Integer;
    class operator Inc(AVenda: TVenda): TVenda;
  end;
  
var
  LVenda: TVenda;
begin
  LVenda.QuantidadeItensVendidos := 10;
  Inc(LVenda);
  ShowMessage(IntToStr(LVenda.QuantidadeItensVendidos));
end;

{ TVenda }

class operator TVenda.Inc(AVenda: TVenda): TVenda;
begin
  Result.QuantidadeItensVendidos := AVenda.QuantidadeItensVendidos + 1;
end;