Classe com capa e item
05/03/2016
0
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;
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;
Ricardo Matarazzo
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)