GetCounterByName (rtl)

De Wiki1000
(Différences entre les versions)
 
Ligne 1 : Ligne 1 :
 
<source lang='delphi'>Function GetCounterByName(Inst:TitObject; const iName:String):TdbfCounter;</source>
 
<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"
 
{|class="wikitable"
Ligne 45 : Ligne 45 :
  
 
Voir aussi:
 
Voir aussi:
 +
 +
*[[TdbfCounter (class)|Classe des compteurs]]
  
 
{{Footer|Développement DSM}}
 
{{Footer|Développement DSM}}
 
[[category:RTL Framework]]
 
[[category:RTL Framework]]

Version actuelle en date du 15 août 2009 à 10: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:

Développement DSMDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels