| Class TNFIRecordList (unit NFILists) |
TObject
| Constructors |
constructor Create;| Functions |
procedure AddRecord(ARecord: Pointer; Size: Integer);
procedure AddTNFIVarRec(ARecord: TNFIVarRec);
procedure Clear;
destructor Destroy;
function GetRecord(ARecNum: Integer): Pointer;
function GetRecordSize(ARecNum: Integer): Integer;
function GetTNFIVarRec(ARecNum: Integer; var ARecord: TNFIVarRec): Boolean;
procedure InsertRecord(ARecord: Pointer; AtPos, Size: Integer);
procedure RemoveRecord(ARecNum: Integer);| Properties |
property Count : Integer
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 : Integerproperty Size: Integer read RecordSize;
property Items : TList| Events |
| Variables |
FItems : TList;
RecordCount : Integer;