Class TNFIRecordList (unit NFILists)

Inherits from

TObject

Constructors


constructor Create;

=======================================================================} { ** TNFIRECORDLIST CODE } {=======================================================================


Functions

procedure AddRecord(ARecord: Pointer; Size: Integer);


procedure AddTNFIVarRec(ARecord: TNFIVarRec);


procedure Clear;


destructor Destroy;


function GetRecord(ARecNum: Integer): Pointer;

Returns a pointer to the data held by a TNFIRecordItem, not a pointer to the object itself.

function GetRecordSize(ARecNum: Integer): Integer;


function GetTNFIVarRec(ARecNum: Integer; var ARecord: TNFIVarRec): Boolean;


procedure InsertRecord(ARecord: Pointer; AtPos, Size: Integer);


procedure RemoveRecord(ARecNum: Integer);

one from it as TList is zero-based.

Properties

property Count : Integer

property Size: Integer read RecordSize;

property Items : TList


Events

Variables

FItems : TList;


RecordCount : Integer;



Constructors


constructor Create;

=======================================================================} { ** TNFIRECORDLIST CODE } {=======================================================================


Functions


procedure AddRecord(ARecord: Pointer; Size: Integer);


procedure AddTNFIVarRec(ARecord: TNFIVarRec);


procedure Clear;


destructor Destroy;


function GetRecord(ARecNum: Integer): Pointer;

Returns a pointer to the data held by a TNFIRecordItem, not a pointer to the object itself. { The procedure itself uses "ARecord" because without it, the compiler gave } { me an error it informs me I shouldn't have. Anyway, it works now so...


function GetRecordSize(ARecNum: Integer): Integer;


function GetTNFIVarRec(ARecNum: Integer; var ARecord: TNFIVarRec): Boolean;


procedure InsertRecord(ARecord: Pointer; AtPos, Size: Integer);


procedure RemoveRecord(ARecNum: Integer);

one from it as TList is zero-based.


Properties


property Count : Integer

property Size: Integer read RecordSize;


property Items : TList


Events


Variables


FItems : TList;


RecordCount : Integer;