unit MixMatMstR;

interface

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

type
  TMixMatMstR = class(TwRelation)
  private
    { Private declarations }
    FQty: string;
    FUnitt: string;
    FDescriptions: string;
    FQtyEnc: string;
    FOrdNum: string;

    FLObj: TList;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TObject);// override;
    destructor Destroy; override;

    property LObj: TList read FLObj write FLObj;
  published
    { Published declarations }
    property Qty: string read FQty write FQty;
    property Unitt: string read FUnitt write FUnitt;
    property Descriptions: string read FDescriptions write FDescriptions;
    property QtyEnc: string read FQtyEnc write FQtyEnc;
    property OrdNum: string read FOrdNum write FOrdNum;
  end;

implementation

{ TMixMatMstR }

constructor TMixMatMstR.Create(AOwner: TObject);
begin
  FLObj := TList.Create;
end;

destructor TMixMatMstR.Destroy;
var
  i: Integer;
  tmpObj: TObject;
begin
  if FLObj <> nil then begin
    i := 0;
    while i < FLObj.Count do begin
      tmpObj := FLObj.Items[i];
      if tmpObj <> nil then tmpObj.Free;
      tmpObj := nil;
      FLObj.Delete(i);
    end;
    FLObj.Free; FLObj:=nil;
  end;

  inherited;
end;

end.