Parameters (type)

Le type de données « Paramètres » permet de stocker dynamiquement des paramètres qui ne sont pas connu à l'avance.

Le type paramètres est stocké sous forme de document XML

Le type paramètre peut être utilisé pour stocker des couple clé/valeur.

Count	Retourne le nombre de paramètre

Clear	Vide la liste des paramètres
Names	Accède au nom des paramètres
Values	Accède au valeur des paramètres
ValueByIndex	Accède au valeur des paramètres par leur index
NameExists	Test si un paramètre existe.
IndexOfName	Retourne l'index d'un paramètre
Add	Ajoute un paramètre
Find	Retourne un paramètre par son nom
Remove	Supprime un paramètre
Merge	Fusionne une liste de paramètre
Replace	Remplace les valeurs par une liste de paramètre
Items	Retourne un paramètre par son index
LogEvent	Transmet le contenu comme évènement.

Exemple :

<source lang="delphi"> unit TestSYFREWF; interface

Type

 Facade1 = Class(TitObject)
 public
   keyvalue: TFrameWorkDataType;
   Procedure AddKeyValue;
   Class Procedure TestFacade1;
 end;

Implementation

{Facade1}

Procedure Facade1.AddKeyValue; //Procedure AddKeyValue; begin

 keyvalue.Add('source','key1',100);
 //
 if keyvalue.Find('source','key1').Value=100
    then showMessage('OK')
    else showMessage('failed');

 if keyvalue.Names[0]='key1'
    then showMessage('Names ok')
    else showMessage('Names failed');

 if keyvalue.Values['key1']=100
    then showMessage('Values ok')
    else showMessage('Values failed');

 if keyvalue.ValueByIndex[0]=100
    then showMessage('ValueByIndex ok')
    else showMessage('ValueByIndex failed');

 if keyvalue.NameExists('key1')
    then showMessage('NameExists ok')
    else showMessage('NameExists failed');

 if keyvalue.IndexOfName('key1')<>-1
    then showMessage('IndexOfName ok')
    else showMessage('IndexOfName failed');

 if keyvalue.Items[keyvalue.IndexOfName('key1')].Value=100
    then showMessage('Items ok')
    else showMessage('Items failed');

end;

Class Procedure Facade1.TestFacade1; //Class Procedure TestFacade1; begin

 showMessage('Test Facade1');

end;

end. </source>

Voir aussi :