Class CRCData (unit Crc2)

Inherits from

Tobject

Base class for Resource loading CRCTaable class

Constructors


constructor create(CRCTYPE:TCrcType);

since we now have a copy of it in ram let the resource go


Functions

destructor destroy;

array is 0 based so add 1

function GetValue16(Index:Integer):Word;

get a long int from array

didnt raise here since its called so many times


function GetValue32(Index:Integer):LongInt;

the Array[XX] number non zero based

Properties

property Values16 : Word


property Values32 : Longint

get a word from array

Events

Variables

RcCount : Integer;

The actual data read from resource

RcData : Pointer;

Is this resource word based on lingint based

RcId : Integer;


RcIsWord : Boolean;

The total size to alloc for storage in array

RcSize : Word;

the integer id of the resource


Constructors


constructor create(CRCTYPE:TCrcType);

since we now have a copy of it in ram let the resource go


Functions


destructor destroy;

array is 0 based so add 1


function GetValue16(Index:Integer):Word;

get a long int from array

didnt raise here since its called so many times


function GetValue32(Index:Integer):LongInt;

the Array[XX] number non zero based


Properties


property Values16 : Word


property Values32 : Longint

get a word from array


Events


Variables


RcCount : Integer;

The actual data read from resource


RcData : Pointer;

Is this resource word based on lingint based


RcId : Integer;


RcIsWord : Boolean;

The total size to alloc for storage in array


RcSize : Word;

the integer id of the resource