« Parameters (type) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
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 à 07: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 :
<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 :