<< Click to Display Table of Contents >> Navigation:  Web Service > Funciones > Classes > TListaCategoria

 

TSubCategoria = class(TRemotable)

private

   FNuSubCategoria: LongInt;

   FNuCategoria: LongInt;

   FDescripcion: string;

   FFoto: TByteDynArray;

published

  property NuSubCategoria:    LongInt   read FNuSubCategoria write FNuSubCategoria;

  property NuCategoria:    LongInt   read FNuCategoria write FNuCategoria;

  property Descripcion:    string   read FDescripcion write FDescripcion;

  property Foto:           TByteDynArray   read FFoto write FFoto;

end;

 

TArraySubCategoria = array of TSubCategoria;

 

TListaSubCategoria = class(TRemotable)

private

   FCount : Integer;

   FArraySubCategoria: TArraySubCategoria;

public

   procedure SetLengthList(Value: integer);

published

  property Count:          integer   read FCount write FCount;

  property ArraySubCategoria:  TArraySubCategoria    read FArraySubCategoria write FArraySubCategoria;

end;

 

 

TCategoria = class(TRemotable)

private

   FNuCategoria: LongInt;

   FDescripcion: string;

   FFoto: TByteDynArray;

   FListaSubCategoria: TListaSubCategoria;

published

  property NuCategoria:    LongInt   read FNuCategoria write FNuCategoria;

  property Descripcion:    string   read FDescripcion write FDescripcion;

  property Foto:           TByteDynArray   read FFoto write FFoto;

  property ListaSubCategoria: TListaSubCategoria read FListaSubCategoria write FListaSubCategoria;

end;

 

TArrayCategoria = array of TCategoria;

 

TListaCategoria = class(TRemotable)

private

   FCount : Integer;

   FArrayCategoria: TArrayCategoria;

public

   procedure SetLengthList(Value: integer);

published

  property Count:          integer   read FCount write FCount;

  property ArrayCategoria:  TArrayCategoria    read FArrayCategoria write FArrayCategoria;

end;