Class tpersistentarrayprop

Unit

msearrayprops

Declaration

type tpersistentarrayprop = class(tarrayprop, iobjectlink)

Description

Hierarchy

• TObject
• tpersistent
• tarrayprop
• tpersistentarrayprop

Overview

Fields

	fitems: persistentarty;
	fdestroyingitem: tpersistent;
	fitemclasstype: virtualpersistentclassty;
	fobjectlinker: tobjectlinker;

Methods

	function _addref: integer; stdcall;
	function _release: integer; stdcall;
	function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);
	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil);
	procedure objevent(const sender: iobjectlink; const event: objecteventty);
	function getinstance: tobject;
	function getobjectlinker: tobjectlinker;
	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;
	function getitems(const index: integer): tpersistent;
	procedure init(startindex,endindex: integer); override;
	function getcount: integer; override;
	procedure setcount1(acount: integer; doinit: boolean); override;
	procedure writeitem(const index: integer; writer: twriter); override;
	procedure readitem(const index: integer; reader: treader); override;
	function getsize: integer; override;
	function getdatapo: pointer; override;
	function getitemspo(const index: integer): pointer; override;
	procedure createitem(const index: integer; var item: tpersistent); virtual;
	procedure defineproperties(filer: tfiler); override;
	procedure readcollection(reader: treader);
	procedure writecollection(writer: twriter);
	function getcollectionname(const index: integer): string; virtual;
	function ispropertystored(index: integer): boolean; virtual;
	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil); overload;
	procedure setlinkedvar(const source: tlinkedobject; var dest: tlinkedobject; const linkintf: iobjectlink = nil); overload;
	constructor create(aitemclasstype: virtualpersistentclassty); reintroduce;
	destructor destroy; override;
	procedure itemdestroyed(const aitem: tpersistent);
	procedure assign(source: tpersistent); override;
	function propkind: arraypropkindty; override;
	function displayname(const index: integer): msestring; virtual;
	procedure add(const item: tpersistent);
	function add(): tpersistent;
	function indexof(const aitem: tpersistent): integer;
	class function getitemclasstype: persistentclassty; virtual;

Properties

	property itemclasstype: virtualpersistentclassty read fitemclasstype;
	property items[constindex:integer]: tpersistent read getitems;

Description

Fields

	fitems: persistentarty;

	fdestroyingitem: tpersistent;

	fitemclasstype: virtualpersistentclassty;

	fobjectlinker: tobjectlinker;

Methods

	function _addref: integer; stdcall;

	function _release: integer; stdcall;

	function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

	procedure link(const source,dest: iobjectlink; valuepo: pointer = nil; ainterfacetype: pointer = nil; once: boolean = false);

	procedure unlink(const source,dest: iobjectlink; valuepo: pointer = nil);

	procedure objevent(const sender: iobjectlink; const event: objecteventty);

	function getinstance: tobject;

	function getobjectlinker: tobjectlinker;

	procedure objectevent(const sender: tobject; const event: objecteventty); virtual;

	function getitems(const index: integer): tpersistent;

	procedure init(startindex,endindex: integer); override;

	function getcount: integer; override;

	procedure setcount1(acount: integer; doinit: boolean); override;

	procedure writeitem(const index: integer; writer: twriter); override;

	procedure readitem(const index: integer; reader: treader); override;

	function getsize: integer; override;

	function getdatapo: pointer; override;

	function getitemspo(const index: integer): pointer; override;

	procedure createitem(const index: integer; var item: tpersistent); virtual;

	procedure defineproperties(filer: tfiler); override;

	procedure readcollection(reader: treader);

	procedure writecollection(writer: twriter);

	function getcollectionname(const index: integer): string; virtual;

	function ispropertystored(index: integer): boolean; virtual;

	procedure setlinkedvar(const source: tmsecomponent; var dest: tmsecomponent; const linkintf: iobjectlink = nil); overload;

	procedure setlinkedvar(const source: tlinkedobject; var dest: tlinkedobject; const linkintf: iobjectlink = nil); overload;

	constructor create(aitemclasstype: virtualpersistentclassty); reintroduce;

	destructor destroy; override;

	procedure itemdestroyed(const aitem: tpersistent);

	procedure assign(source: tpersistent); override;

	function propkind: arraypropkindty; override;

	function displayname(const index: integer): msestring; virtual;

	procedure add(const item: tpersistent);

	function add(): tpersistent;

	function indexof(const aitem: tpersistent): integer;

	class function getitemclasstype: persistentclassty; virtual;

Properties

	property itemclasstype: virtualpersistentclassty read fitemclasstype;

	property items[constindex:integer]: tpersistent read getitems;