GetCounterByName (rtl)

De Wiki1000

<source lang='delphi'>Function GetCounterByName(Inst:TitObject; const iName:String):TdbfCounter;</source>

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

<source lang='delphi'> {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; </source>

Voir aussi:

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}