unit uscanresult;

interface

uses
  generics.collections;

type
  TTimInfo = record
    Position: Integer;
    Size: Integer;
    Width: Integer;
    Height: Integer;
    BitMode: Byte;
    Cluts: Integer;
    Good: Boolean;
  end;

  TScanResult = class(TObject)
    private
      pScanFile: string;
      pIsImage: Boolean;
      pCount: Integer;
      pTims: array of TTimInfo;

      procedure fSetCount(Value: Integer);

      function fGetTim(Index: Integer): TTimInfo;
      procedure fSetTim(Index: Integer; Value: TTimInfo);

    public
      constructor Create;
      destructor Destroy; override;

      property ScanFile: string read pScanFile write pScanFile;
      property IsImage: Boolean read pIsImage write pIsImage;
      property Count: Integer read pCount write fSetCount;

      property ScanTim[index: Integer]: TTimInfo read fGetTim write fSetTim;
  end;
  TScanResultList = TList<TScanResult>;

implementation

{ TScanResult }

constructor TScanResult.Create;
begin
  inherited;

  pScanFile := '';
  pIsImage := False;
  pCount := 0;
  pTims := nil;
end;

destructor TScanResult.Destroy;
begin
  SetLength(pTims, 0);
  pTims := nil;
  inherited;
end;

function TScanResult.fGetTim(Index: Integer): TTimInfo;
begin
  Result := pTims[Index];
end;

procedure TScanResult.fSetCount(Value: Integer);
begin
  pCount := Value;
  SetLength(pTims, Value);
end;

procedure TScanResult.fSetTim(Index: Integer; Value: TTimInfo);
begin
  pTims[Index] := Value;
end;

end.