Parameters (type)
De Wiki1000
(Différences entre les versions)
Ligne 51 : | Ligne 51 : | ||
|Transmet le contenu comme évènement. | |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 : |
Version du 11 septembre 2014 à 09:01
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
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 :
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 |