Class TNFIRecordList (unit NFILists) |
Inherits from
TObject
constructor Create;
- =======================================================================} { ** TNFIRECORDLIST CODE } {=======================================================================
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.
property Count : Integer
property Size: Integer read RecordSize;
property Items : TList
FItems : TList;
RecordCount : Integer;
constructor Create;
=======================================================================} { ** TNFIRECORDLIST CODE } {=======================================================================
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.
property Count : Integer
property Size: Integer read RecordSize;
property Items : TList
FItems : TList;
RecordCount : Integer;