Class TDiscreteValues

Unit

Declaration

type TDiscreteValues = class(TObject)

Description

Methods

Overview

	constructor Create();
	destructor Destroy; override;
	procedure assign(prmSource: TDiscreteValues);
	procedure clear();
	function getDescription(prmValue: TTypeDiscrete): string;
	function getNbValues: Integer;
	function getValue(prmStr: string): TTypeDiscrete;
	procedure LoadFromStream(prmStream: TStream);
	procedure SaveToStream(prmStream: TStream);

Description

constructor Create();

liste des valeurs - attention zéro based !!!

destructor Destroy; override;

procedure assign(prmSource: TDiscreteValues);

copier la description d'un autre attribut

procedure clear();

vider la liste de description

function getDescription(prmValue: TTypeDiscrete): string;

récupérer la description d'une valeur - pas de contrôle d'étendue !!!

function getNbValues: Integer;

renvoie le nombre de modalités

function getValue(prmStr: string): TTypeDiscrete;

renvoie la valeur associée à une modalités - l'ajoute à la liste des modalités si non trouvée

procedure LoadFromStream(prmStream: TStream);

charger à partir d'un flux

procedure SaveToStream(prmStream: TStream);

sauver dans un flux