« GetCounterByName (rtl) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
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 à 08:19
<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 —
}}