GetCounterByName (rtl)
De Wiki1000
(Différences entre les versions)
| Ligne 20 : | Ligne 20 : | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| + | {TGroupeRemiseBancaire.ValeurInitiale_Compteur} | ||
| + | var | ||
| + | vCompteur : TdbfCounter; | ||
| + | vNameCompteur : String; | ||
begin | begin | ||
| + | Result := FALSE; | ||
| + | vNameCompteur := ''; | ||
| + | if (TypeRemiseBancaire.Value = TypeRemiseBancaire_Virement) then | ||
| + | vNameCompteur := 'GroupeRemise_Virement' | ||
| + | else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_Prelevement) then | ||
| + | vNameCompteur := 'GroupeRemise_Prelevement' | ||
| + | else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_LCRBOR) then | ||
| + | vNameCompteur := 'GroupeRemise_LCRBOR' | ||
| + | else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_TransfertInternational) then | ||
| + | vNameCompteur := 'GroupeRemise_Transfert'; | ||
| + | |||
| + | if (vNameCompteur <> '') then | ||
| + | begin | ||
| + | vCompteur := GetCounterByName(self,vNameCompteur); | ||
| + | Compteur.Counter := vCompteur; | ||
| + | end; | ||
end; | end; | ||
</source> | </source> | ||
| Ligne 28 : | Ligne 48 : | ||
{{Footer|Développement DSM}} | {{Footer|Développement DSM}} | ||
[[category:RTL Framework]] | [[category:RTL Framework]] | ||
| − | |||
Version du 15 août 2009 à 09:19
Function GetCounterByName(Inst:TitObject; const iName:String):TdbfCounter;
Cette fonction retrouve un objet compteur.
| Result | L'instance de l'objet compteur de nom recherché. |
| Inst | Instance d'objet utilisée pour identifier la base de données. |
| iName | Nom du compteur. |
Le paramètre instance est utilisé pour identifié la base de données ou effectuer la recherche ; à défaut (valeur nil) la base de données par défaut est utilisée.
Exemple
{TGroupeRemiseBancaire.ValeurInitiale_Compteur} var vCompteur : TdbfCounter; vNameCompteur : String; begin Result := FALSE; vNameCompteur := ''; if (TypeRemiseBancaire.Value = TypeRemiseBancaire_Virement) then vNameCompteur := 'GroupeRemise_Virement' else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_Prelevement) then vNameCompteur := 'GroupeRemise_Prelevement' else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_LCRBOR) then vNameCompteur := 'GroupeRemise_LCRBOR' else if (TypeRemiseBancaire.Value = TypeRemiseBancaire_TransfertInternational) then vNameCompteur := 'GroupeRemise_Transfert'; if (vNameCompteur <> '') then begin vCompteur := GetCounterByName(self,vNameCompteur); Compteur.Counter := vCompteur; end; end;
Voir aussi:
