Class tcurrencydatalist

Unit

msedatalist

Declaration

type tcurrencydatalist = class(tdatalist)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• tlinkedpersistent
• tdatalist
• tcurrencydatalist

Overview

Methods

	function checkassigncompatibility( const source: tpersistent): boolean; override;
	procedure readitem(const reader: treader; var value); override;
	procedure writeitem(const writer: twriter; var value); override;
	function compare(const l,r): integer; override;
	procedure setstatdata(const index: integer; const value: msestring); override;
	function getstatdata(const index: integer): msestring; override;
	constructor create; override;
	class function datatype: listdatatypety; override;
	function empty(const index: integer): boolean; override;
	function add(const avalue: currency): integer;
	procedure insert(const index: integer; const avalue: currency);
	function find(const avalue: currency): integer;
	procedure fill(const acount: integer; const defaultvalue: currency); overload;
	procedure fill(const defaultvalue: currency); overload;
	function getastext(const index: integer): msestring; override;
	procedure setastext(const index: integer; const avalue: msestring); override;

Properties

	property asarray: currencyarty read getasarray write setasarray;
	property items[index:integer]: currency read Getitems write Setitems;

Description

Methods

	function checkassigncompatibility( const source: tpersistent): boolean; override;

	procedure readitem(const reader: treader; var value); override;

	procedure writeitem(const writer: twriter; var value); override;

	function compare(const l,r): integer; override;

	procedure setstatdata(const index: integer; const value: msestring); override;

	function getstatdata(const index: integer): msestring; override;

	constructor create; override;

	class function datatype: listdatatypety; override;

	function empty(const index: integer): boolean; override;

	function add(const avalue: currency): integer;

	procedure insert(const index: integer; const avalue: currency);

	function find(const avalue: currency): integer;

	procedure fill(const acount: integer; const defaultvalue: currency); overload;

	procedure fill(const defaultvalue: currency); overload;

	function getastext(const index: integer): msestring; override;

	procedure setastext(const index: integer; const avalue: msestring); override;

Properties

	property asarray: currencyarty read getasarray write setasarray;

	property items[index:integer]: currency read Getitems write Setitems;