« GetCounterByName (rtl) » : différence entre les versions

Dernière version du 15 août 2009 à 08:37

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:

Classe des compteurs

— Développement DSM — Développement DSM —

@@ Ligne 1 : / Ligne 1 : @@
 <source lang='delphi'>Function GetCounterByName(Inst:TitObject; const iName:String):TdbfCounter;</source>
-Cette fonction retrouve un objet compteur.
+Cette fonction retrouve un [[TdbfCounter (class)|objet compteur]].
 {|class="wikitable"
@@ Ligne 45 : / Ligne 45 : @@
 Voir aussi:
+*[[TdbfCounter (class)|Classe des compteurs]]
 {{Footer|Développement DSM}}
 [[category:RTL Framework]]