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.

Propriétés

Count

Retourne le nombre de paramètre

Méthodes

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 :

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.

Voir aussi :

• Type paramètre