Fórum Cálculo com Código de barras #261821

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm) {declaração da classe TForm1}
    edtBarras: TEdit;   {coloca um um form esses três objetos para testar a classe}
    Button1: TButton;
    edtQtd: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TProduto = class(TObject) {declaração da classe TProduto herdada de TObject}
  private                   {essa declaração pode ser colocada em uma unit separada}
    Qte, ValorPagar: Real;
    CodigoProduto: string;
    FCodigoBarra: string;
    FPreco: Currency;
    procedure SetCodigoBarra(const Value: string);
  private
    property CodigoBarra: string read FCodigoBarra write SetCodigoBarra;
    property Preco: Currency read FPreco write FPreco;

    constructor Create(APreco: Currency); reintroduce; {construtor da classe}
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TProduto - métodos da classe}

constructor TProduto.Create(APreco: Currency);
begin
  inherited Create; {utiliza o create da TObject}
  Preco := APreco; {seta a propriedade}
  {ps: normalmente envio no constutor as propriedades imprescindíveis para
  o funcionamento da classe}
end;

procedure TProduto.SetCodigoBarra(const Value: string);
begin
  //insere na propridade CodigoBarra o valor enviado
  FCodigoBarra := Value;

  //calcula o código do produto
  CodigoProduto := copy(Value, 3, 6);

  //calcula o valor a pagar
  ValorPagar := StrToFloat(copy(Value, 10, 3) + ´,´ + copy(Value, 13, 2));

  //calcula a quantidade
  Qte := ValorPagar / Preco;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  oProd: TProduto;
begin
  try
   //cria o objeto dizendo que 7 é o preço dele, conforme declaração do construtor de TProduto
    oProd := TProduto.Create(7);

    //dispara automaticamente a SetCodigoBarra conforme declaração da propridade
    oProd.CodigoBarra := edtBarras.Text ;

    //insere em edtQtd (TEdit) a Qte calculada na SetCodigoBarras
    edtQtd.Text := FormatFloat(´0.000´, oProd.Qte);
  finally
    FreeAndNil(oProd);
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm) {declaração da classe TForm1}
    edtBarras: TEdit;   {coloca um um form esses três objetos para testar a classe}
    Button1: TButton;
    edtQtd: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TProduto = class(TObject) {declaração da classe TProduto herdada de TObject}
  private                   {essa declaração pode ser colocada em uma unit separada}
    Qte, ValorPagar: Real;
    CodigoProduto: string;
    FCodigoBarra: string;
    FPreco: Currency;
    procedure SetCodigoBarra(const Value: string);
  private
    property CodigoBarra: string read FCodigoBarra write SetCodigoBarra;
    property Preco: Currency read FPreco write FPreco;

    constructor Create(APreco: Currency); reintroduce; {construtor da classe}
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TProduto - métodos da classe}

constructor TProduto.Create(APreco: Currency);
begin
  inherited Create; {utiliza o create da TObject}
  Preco := APreco; {seta a propriedade}
  {ps: normalmente envio no constutor as propriedades imprescindíveis para
  o funcionamento da classe}
end;

procedure TProduto.SetCodigoBarra(const Value: string);
begin
  //insere na propridade CodigoBarra o valor enviado
  FCodigoBarra := Value;

  //calcula o código do produto
  CodigoProduto := copy(Value, 3, 6);

  //calcula o valor a pagar
  ValorPagar := StrToFloat(copy(Value, 10, 3) + ´,´ + copy(Value, 13, 2));

  //calcula a quantidade
  Qte := ValorPagar / Preco;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  oProd: TProduto;
begin
  try
   //cria o objeto dizendo que 7 é o preço dele, conforme declaração do construtor de TProduto
    oProd := TProduto.Create(7);

    //dispara automaticamente a SetCodigoBarra conforme declaração da propridade
    oProd.CodigoBarra := edtBarras.Text ;

    //insere em edtQtd (TEdit) a Qte calculada na SetCodigoBarras
    edtQtd.Text := FormatFloat(´0.000´, oProd.Qte);
  finally
    FreeAndNil(oProd);
  end;
end;

end.