Parameters (type)

De Wiki1000

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 :





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels