TIBTable et TIBQuery - Récupérer les Displaylabel en une seule procedure

Question

Bonjour


A partir du tutoriel de DelphiProg (j'adore ce tutoriel !), j'essaie de
modifier le composant TComboBox pour le remplir automatiquement avec
les displaylabel d'un composant de base de données firebird. Ça donne
ça :


-----------------------------------------------------------------------------------

unit Umdf_ComboBox;


interface


uses stdctrls, IBCustomDataSet;


type TComboBox = Class(stdctrls.TComboBox)

     Private


     Public


     published

              procedure BuildFieldList(ADataSet: TIBDataSet);

     End;


implementation


procedure TComboBox.BuildFieldList(ADataSet: TIBDataSet);

var

   i : integer;

begin

     Items.Clear;

     For i := 0 to ADataSet.Fields.Count - 1 do begin

         Items.Add(ADataSet.Fields[i].DisplayLabel);

     End;

end;

----------------------------------------------------------------------------------


Le problème, c'est que j'aimerais par la suite pouvoir rechercher les
displaylabel d'un TIBTable ou d'un TIBQuery. Existe-t-il un moyen autre
que de faire deux procédures distincte ?


Merci

Simon

f0xi · Answer

petite correction de rien du tout :

 procedure TComboBox.BuildFieldList(ADataSet: TIBDataSet);
 var i : integer;
 begin
  with Items do
  begin
    Clear;
    BeginUpdates;
    try
       For i := 0 to ADataSet.Fields.Count-1 do 
        Add( ADataSet.Fields[i].DisplayLabel );
    finally
      EndUpdates;
    end;
  end;
end;

Cirec · Answer

On pouvait même encore se passer d'un bloc Begin/End  

 procedure TComboBox.BuildFieldList(ADataSet: TIBDataSet);
 var
    i : integer;
 begin
   With Items do Try
    Clear;
    BeginUpdates;
      For i :=  0  to  ADataSet.Fields.Count - 1 do
          Items.Add(ADataSet.Fields[i].DisplayLabel);
  Finally
    EndUpdates;
   End;
 end;

 
@+
Cirec

<hr size ="2" />

sp40 · Answer

Merci les gars... 

Mais je voudrais surtour savoir comment ça pourrait marcher avec un ttable et un tibquery... pour le moment, j'ai fait un BuildTFieldList pour le ttable et un 
BuildQFieldList pour le tibquery...

Simon

florenth · Answer

Salut !
Toujours dans la logique d'optimisation de Cirec, on pourrait appeler BeginUpdate (sans "s") avant Clear comme ça, on a un rafraîchissement de moins. 
Il est quand même préférable d'appeler BeginUpdate avant le "try" (ou alors en tout premier). Sinon, si le code plante entre le "try" et le BeginUpdate, on appelle EndUpdate (qui va décrémenter un compteur que l'on a pas incrémenter... et bousiller tout le code utilisant de nouveau la séquence Beginupdate...Endupdate)

++

sp40 · Answer

Je suis bien d'accord avec toi florenth... mais ça ne répond pas à la question posée 

Simon

japee · Answer

Simon a raison, revenons à la question posée. 

Personnellement, je pense que les champignons, il faudrait les faire sauter.
Les champignons sautés gardent toute leur saveur...

sp40 · Answer

Japee :
A noter que les cepes se font très bien en conserve. Et quand tu les sors du bocal, tu  les sautes à la poele et ils sont comme s'ils étaient frais... (foi de landais !)
(J'aime bien les girolles aussi)

Et sinon, ma question ?

Simon

Francky23012301 · Answer

"Les champignons sautés gardent toute leur saveur" : Et Buffy aussi elle garde toute sa saveur quand elle est s.... ?  (Le big Troll )

florenth · Answer

Les IBTable et IBQuery ne possèdent-ils pas une propriété DataSet par hazard ?

japee · Answer

@Simon :

J'ai changé l'intitulé et la catégorie de ta question :
"modification de composant", dans la catégorie "Delphi\Divers", ça n'était pas propre à attirer nos éminents spécialistes des bases de données... 

Bonne chance.

TIBTable et TIBQuery - Récupérer les Displaylabel en une seule procedure

10 réponses

Votre réponse