unit RtpProcessInfo;

interface

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

type
  TRtpProcessInfo = class(TwItem)
  private
    { Private declarations }
    FOrdNum: string;
    FSumQty: string;
    FUnitt: string;
    FWorkTime: string;
    FDescriptions: string;

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

    property qRtpList: TList read FqRtpList write FqRtpList;
  published
    { Published declarations }
    property OrdNum: string read FOrdNum write FOrdNum;
    property SumQty: string read FSumQty write FSumQty;
    property Unitt: string read FUnitt write FUnitt;
    property WorkTime: string read FWorkTime write FWorkTime;
    property Descriptions: string read FDescriptions write FDescriptions;
  end;

implementation

{ TRtpProcessInfo }

constructor TRtpProcessInfo.Create(AOwner: TObject);
begin
  FqRtpList := TList.Create;
end;

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

  inherited;
end;

end.