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

De Wiki1000
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

}}