F�rum Composi��o de Classes no Delphi #475901

10/04/2014

Galera, bom dia...

Estou come�ando a programar em OO com o Delphi... Criei uma Classe mestre (NotaFiscal) com propriedades e m�todos normalmente... N�o estou conseguindo agora fazer os Itens desta nota Fiscal. N�o sei como criar uma propriedade que tenha os meus itens (que � uma segunda classe)... Alguem poderia me dar um exemplo simples de como criar esta propriedade e como carregar ela com todos os itens da nota?

Emerson

Curtir t�pico

+ 0

Responder

Posts

10/04/2014

Cau� Nishijima

Posta o que voc� tem at� agora.

Pelo que entendi voc� tem duas Classes, uma TNotaFiscal e outra TItens(que contem os itens da nota fiscal) � isso?

na classe TNotaFiscal voc� precisa fazer um Uses pra classe TItens, depois precisa declarar a propriedade itens do tipo TItens:

   property itens: TItens read FItens write FItens;

Em seguida no construtor da classe TNotaFiscal voc� deve instanciar um objeto TItens e atribuir para FItens, assim voc� pode acessar os itens da nota fiscal da seguinte forma:

   nf = TNotaFiscal.Create(Self);
   edtDescricao.Text := nf.itens.descricao;

Responder

Gostei + 0

10/04/2014

Emerson

� isso mesmo, o que n�o to conseguindo � "carregar" os itens na propriedade que criei. N�o to sabendo como ir incrementando item a item na propriedade (que deve ser um vetor)...

Veja a Classe de Nota:


unit uNotaFiscal;

interface

uses Classes, ADODB, Variants, System.SysUtils, Data.DB, uNotaFiscalItens,
     Dialogs, Forms, StrUtils;

type
  TNotaFiscal = class(TPersistent)

  private
    { private declarations }
    FEmpresa: Integer;
    FNumero: Integer;
    FSerie: Integer;

    function getItens(index: Integer): TNotaFiscalItens;

  protected
    { protected declarations }

  public
    { public declarations }
    procedure setItens(index: Integer; const value: TNotaFiscalItens);

    property Empresa: Integer read FEmpresa write FEmpresa;
    property Numero: Integer read FNumero write FNumero;
    property Serie: Integer read FSerie write FSerie;

    property Itens[index: Integer]: TNotaFiscalItens read getItens write setItens; default;

    constructor Create;

  end;

implementation
{ TNotaFiscal }

constructor TNotaFiscal.Create;
begin
  inherited Create;
end;

function TNotaFiscal.getItens(index: Integer): TNotaFiscalItens;
begin
  Result := Itens[Index];
end;

procedure TNotaFiscal.setItens(index: Integer; const value: TNotaFiscalItens);
begin
  Itens[Index].Assign(Value);
end;

end.

e a Classe de Itens da nota:


unit uNotaFiscalItens;

interface

uses Classes, ADODB, Variants, System.SysUtils, System.StrUtils, Data.DB;

type
  TNotaFiscalItens = class(TCollectionItem)

  private
    { private declarations }
    FItem: Integer;
    FProduto: Integer;
    FVlrUnitario: Double;

  protected
    { protected declarations }

  public
    { public declarations }
    property Item: Integer read FItem write FItem;
    property Produto: Integer read FProduto write FProduto;
    property ValorUnitario: Double read FVlrUnitario write FVlrUnitario;

    constructor Create;

  end;
implementation

{ TNotaFiscalItens }

constructor TNotaFiscalItens.Create;
begin
  inherited Create;
end;

end.

Responder

Gostei + 0

10/04/2014

Cau� Nishijima

Fiz umas modifica��es no seu c�digo, n�o sei se � bem isso que voc� quer, mas experimenta usar o seguinte c�digo:

uNotaFical.pas:

unit uNotaFiscal;

interface

uses Classes, ADODB, Variants, System.SysUtils, Data.DB, uNotaFiscalItens,
  Dialogs, Forms, StrUtils;

type
  TNotaFiscal = class(TPersistent)

  private
    { private declarations }
    FEmpresa: Integer;
    FNumero: Integer;
    FSerie: Integer;
    FItens: TList;
    function getItens(index: Integer): TNotaFiscalItens;

  protected
    { protected declarations }

  public
    { public declarations }
    procedure setItens(index: Integer; const value: TNotaFiscalItens);

    property Empresa: Integer read FEmpresa write FEmpresa;
    property Numero: Integer read FNumero write FNumero;
    property Serie: Integer read FSerie write FSerie;

    property Itens[index: Integer]: TNotaFiscalItens read getItens
      write setItens; default;

    constructor Create;

  end;

implementation

{ TNotaFiscal }

constructor TNotaFiscal.Create;
begin
  inherited Create;
  FItens := TList.Create;
end;

function TNotaFiscal.getItens(index: Integer): TNotaFiscalItens;
begin
  result := FItens.Items[index];
end;

procedure TNotaFiscal.setItens(index: Integer; const value: TNotaFiscalItens);
begin
  FItens.Insert(index,value);
end;

end.

uNotaFiscalItens:

unit uNotaFiscalItens;

interface

uses Classes, ADODB, Variants, System.SysUtils, System.StrUtils, Data.DB;

type
  TNotaFiscalItens = class

  private
    { private declarations }
    FItem: Integer;
    FProduto: Integer;
    FVlrUnitario: Double;

  protected
    { protected declarations }

  public
    { public declarations }
    property Item: Integer read FItem write FItem;
    property Produto: Integer read FProduto write FProduto;
    property ValorUnitario: Double read FVlrUnitario write FVlrUnitario;
  end;
implementation

{ TNotaFiscalItens }


end.

fiz um teste colocando um button em um form e escrevendo o seguinte c�digo no onClick do mesmo:

procedure TForm1.Button1Click(Sender: TObject);
var
  item: TNotaFiscalItens;
  nf : TNotaFiscal;
begin
  item := TNotaFiscalItens.Create;
  item.Item := 1;
  item.Produto := 1;
  item.ValorUnitario := 12.01;

  nf := TNotaFiscal.Create;
  nf.setItens(0,item);

  ShowMessage(FloatToStr(nf.Itens[0].ValorUnitario));

end;

Responder

Gostei + 0

10/04/2014

Emerson

Cara, ache deu certo assim... muito obrigado pela ajuda...

Eu tava pensando em montar um Array de Itens.. e ir alimentando ele.. n�o tinha pensado em List... Valeu pela ajuda...

Responder

Gostei + 0