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

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

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;

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

---

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

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)

++

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

Simon

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...

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

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

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