« Parameters (type) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
| 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]] | ||
Version du 11 septembre 2014 à 13:46
Le type de données « Paramètres » permet de stocker des paramètres dynamique 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 |
| IndexOfName | 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 :