Class Operator Equal

ClassOperatorEqual.pas

type
  TVenda = record
    Valor: Currency;
    QuantidadeItensVendidos: Integer;
    class operator Equal(AVenda1, AVenda2: TVenda): Boolean;
  end;
  
var
  LVenda1, LVenda2: TVenda;
begin
  LVenda1.Valor := 100;
  LVenda1.QuantidadeItensVendidos := 10;

  LVenda2.Valor := 100;
  LVenda2.QuantidadeItensVendidos := 10;

  if LVenda1 = LVenda2 then
    ShowMessage('Igual')
  else
    ShowMessage('Diferente');
end;

{ TVenda }

class operator TVenda.Equal(AVenda1, AVenda2: TVenda): Boolean;
begin
  Result := (AVenda1.Valor = AVenda2.Valor) and (AVenda1.QuantidadeItensVendidos = AVenda2.QuantidadeItensVendidos);
end;