Parameters (type)

De Wiki1000
(Différences entre les versions)
m
 
(5 révisions intermédiaires par un utilisateur sont masquées)
Ligne 1 : Ligne 1 :
Le type de données « Paramètres » permet de stocker des [[Parameter (type)|paramètres]] dynamique qui ne sont pas connu à l'avance.
+
Le type de données « Paramètres » permet de stocker dynamiquement des [[Parameter (type)|paramètres]] qui ne sont pas connu à l'avance.
  
 
Le type paramètres est stocké sous forme de document XML
 
Le type paramètres est stocké sous forme de document XML
Ligne 14 : Ligne 14 :
 
===Méthodes===
 
===Méthodes===
 
{|class="wikitable"
 
{|class="wikitable"
 +
|-
 +
|[[Clear (parameters type)|Clear]]
 +
|Vide la liste des paramètres
 
|-
 
|-
 
|[[Names (parameters type)|Names]]
 
|[[Names (parameters type)|Names]]
Ligne 36 : Ligne 39 :
 
|Retourne un paramètre par son nom
 
|Retourne un paramètre par son nom
 
|-
 
|-
|[[Remove (parameters type)|IndexOfName]]
+
|[[Remove (parameters type)|Remove]]
 
|Supprime un paramètre
 
|Supprime un paramètre
 
|-
 
|-
Ligne 47 : Ligne 50 :
 
|[[Items (parameters type)|Items]]
 
|[[Items (parameters type)|Items]]
 
|Retourne un paramètre par son index
 
|Retourne un paramètre par son index
 +
|-
 +
|[[LogEvent (parameters type)|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 :
 
Voir aussi :
Ligne 55 : Ligne 122 :
 
[[Category:Type de donnée Paramètres]]
 
[[Category:Type de donnée Paramètres]]
 
[[category:Types]]
 
[[category:Types]]
[[category:Latest]]
+
[[Category:Version700]]

Version actuelle en date du 30 septembre 2019 à 10:20

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 0   Bots & Crawlers 1
 
Outils personnels