GetCounterByName (rtl)

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:

— Développement DSM — Développement DSM —