Série da semana: Primeiros passos no React

Veja mais

Classe com capa e item

05/03/2016

1

Boa tarde pessoal

estou tentando desenvolver uma classe com o TList, porém sem sucesso, ao recuperar os itens incluídos, soh aparece o ultimo, alguém poderia dar uma força e me falar onde estou errado...

desde já agradeço abraço

CAPA-PEDIDO

TPedido = class(TPersistent)
private
FNPedido : Integer;
FTt_Pedido : double;
FItens : TList;
FItem : TPedidoItem;

protected
function getItens(Index : Integer) : TPedidoItem;
procedure setItens(Index: Integer; const value : TPedidoItem);

published
property NPedido : integer read FNPedido write FNPedido;
property Tt_Pedido : double read FTt_Pedido write FTt_Pedido;

public
procedure AddItem;
property Item : TPedidoItem read FItem write FItem;
property Itens[Index: Integer] : TPedidoItem read getItens;


constructor TPedido.Create;
begin
inherited Create;
FItens := TList.Create;
Item := TPedidoItem.Create;
end;

function TPedido.getItens(Index: Integer) : TPedidoItem;
begin
Result := FItens[Index];
end;

procedure TPedido.setItens(Index: Integer; const value: TPedidoItem);
var
ObjItem : TPedidoItem;
begin
ObjItem := TPedidoItem.Create;
ObjItem := value;

// FItens.Add(ObjItem);
FItens.Insert(Index, ObjItem);
end;

procedure TPedido.AddItem;
begin
SetItens(Item.prod_nitem, Item);
end;
Responder

Posts

07/03/2016

Wazowski

Essa classe precisa ser reescrita, não por funcionalidade e sim por organização e também por você estar usando algumas coisas que não tem necessidade. Da um resumo do teu objetivo com isso pra ver se consigo ajudar e te explicar algumas coisas ...
Responder