Propriété d'un ensemble de dbedit

Question

Salut tlm
Peut ont faire une action sur un ensemble dbedit  sans répéter les actions pour chacun
Par exemple comment faire pour changer la propriété datasource pour un ensemble de dbedit.
Merci pour votre aide.


yahia

Bacterius · Answer

Bonsoir,
Tags + Boucle sur tous les composants de la fiche (test si "is TDBEdit" + tag de groupe).
Ce n'est pas la seule solution.
Bonne chance.


Cordialement, Bacterius !

cs_cantador · Answer

bonsoir,
Peut-on changer de datasource comme on change de cavalière ?
eh bien non.

Il suffit de faire un test 
pour s'en convaincre.

Je te laisse un peu mijoter..

cantador

youhibadelphi · Answer

salut les amis
je suis débutant en delphi, j'ai besoin d'un peut de details svp.
monsieur et mon ami cantador je cherche faire le test sur un ensemble de dbedit au lieu de faire un test sur chaque composant.


yahia

cs_cantador · Answer

Sur ce point Bacterius a répondu et donné la méthode à suivre :


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
 for i := 0 to Form1 .ComponentCount - 1 do
   if Form1.Components[i] is TDBEdit then
   begin
     TDBEdit(Form1.Components[i]).Datasource :=//TraitementS                           
   end;
end;


Mais le souci de changement de Datasource lui reste entier..
nb : on peut mettre un with mais pour expliquer c'est mieux..

cantador

youhibadelphi · Answer

salut
Peut-on faire des exceptions dans la boucle?
yahia

Bacterius · Answer

Qu'entends-tu par "exception" ? Si tu veux exclure un TDBEdit, tu définis par exemple son Tag à "0", et si tu veux inclure un TDBEdit pour la modification de DataSource, tu mets son Tag à "1".
Ce qui nous donne :

procedure TForm1.Button1Click(Sender: TObject);
var
 I: integer;
begin
 for I := 0 to ComponentCount - 1 do
   if Components[I] is TDBEdit then
    if TDBEdit(Components[I]).Tag = 1 then
     with TDBEdit(Components[I]) do
      begin
       DataSource := ???;
       // Traitements
      end;                       
end;

Cordialement, Bacterius !

cs_cantador · Answer

procedure TForm1.Button1Click(Sender: TObject);
var
 I: integer;
begin
 for I := 0 to ComponentCount - 1 do
   if Components[I] is TDBEdit then
    if TDBEdit(Components[I]).Tag = 1 then
     with TDBEdit(Components[I]) do
      begin
       DataSource.DataSet.Close;
       DataSource := nil;
       DataSource := ???;//Traitements
       DataSource.DataSet.Open;
      end;
end;


J'ai même quelques doutes que cela fonctionne..


cantador

youhibadelphi · Answer

salut
j'ai imprimer les boucles, rdv aprés l'essai.

yahia

Bacterius · Answer

Penses au champagne ! 

Cordialement, Bacterius !

youhibadelphi · Answer

non je pense beaucoup plus au antibiotiques.

yahia

Bacterius · Answer

Pourquoi ? 

Cordialement, Bacterius !

youhibadelphi · Answer

Ahhhh
Si la boucle est bonne alors c'est une boisson non alcoolisée bien frais, else ça sera un antibiotique à large spectre.

yahia

cs_cantador · Answer

Juste un truc, si le nouveau DataSet est le même pour tous les dbedit alors il faut placer
le :

DataSource.DataSet.Open;


en fin de boucle, 
sinon zim boum zim boum zim boum zim boum..................etc.
sur le même datasset.

cantador

Propriété d'un ensemble de dbedit

13 réponses

Votre réponse