rajouter des composant avec un whileRésolu

Question

bjr tous le monde!!!!



alors voici mon souci je suis debutant en delphi et j'aimerai faire
aparaitre des DateTimePikers celon que la personne est choisi
d'afficher 1 ou plusieurs date.

voici un exemple de ce que je fait pour le moment:



if (EditNbr.Text='4') then begin

Picker1.Visible:=True;

||              
||           ||

Picker4.Visible:=True;

end;



sachant que sa peut aller jusqu'a 40

je pensait qu'avec un while sa serait plus util, comme par exemple :



i:=1:

while (Picker'I'<>EditNbr) do

Picker'i++'.Visible:=True;

end;



mais apparemment, sa ne marche pas comme &#231;a.



a mon avis c'est une erreur de syntax, comme sa m'arrive souvant ;)



bon ben je vous remercie d'avance pour une &#233;ventuelle r&#233;ponse

cptpingu · Accepted Answer

Oui, c'est une erreur de syntaxe. On peut faire ce que tu demande, mais pas de cette maniere.

Essaie ceci, (tu peux aller jusqu'au chiffre que tu veux):



var

  I:integer; 



For I:= 1  to  StrToInt(EditNbr) do

begin

  with TDateTimePikers.Create(Self) do

  begin

  Name: ='Pickers'+InToStr(I);

  Parent:= Form1;

  Visible:=True;

  // Tu peux indiquer de m&#234;me tout ce qu'il y a dans l'inspecteur d'objet

   end ;

end;



Fait attention que l'utilisateur ne cr&#233;er pas deux fois ces objets. Si deux objets portent le m&#234;me nom ca plante.

Alors, soit tu d&#233;truit tes composants en cas d'un nouveau choix, soit
tu d&#233;sactive ce choix juste apres que l'utilisateur ait choisi.



Pour la destruction tu fait :



var


  I:integer; 

  Compo:TDateTimePikers;





For I: =StrToInt(EditNbr) Downto 1 do


begin

   Compo:=(Form1.FindComponent('Pickers'+IntToStr(I)))  as TDateTimePikers;

     If Compo<>nil then Compo.Free;


end;

cptpingu · Answer

Apres relecture de ta question, je crois que je n'y répondais pas tout a fait. Fait attention à ton titre, il ne correspond pas a ta question. Je pense que tes composants sont déjà posés. Le code ci-dessus, crée ces composants, comme ci ceux-ci n'existait préalablement pas. Dans le code suivant on considère que les 40 compostants sont déjà posés: var I:integer; Compo:TDateTimePikers; For I:= 1 to StrToInt(EditNbr) do begin Compo: =(Form1.FindComponent('Pickers'+IntToStr(I))) as TDateTimePikers; If Compo<>nil then Compo.Visible:= True; end ; For I: =StrToInt(EditNbr)+1 to 40 do begin Compo:= (Form1.FindComponent('Pickers'+IntToStr(I))) as TDateTimePikers; If Compo<>nil then Compo.Visible: =False; end;

japee · Answer

Tout &#224; fait...



Mais si tu ne veux pas cr&#233;er tes DateTimePicker dynamiquement, tu peux faire tout simplement:



var i: Integer;

begin

  for i := 0 to ComponentCount -1 do

    if Components[i] is TDateTimePicker then

        TDateTimePicker(Components[i]).Visible :=

        StrToInt(TDateTimePicker(Components[i]).Name[7]) <= StrToInt(EditNbr.Text);

end;



&#224; optimiser &#233;ventuellement.



Bonne prog' 



japee

japee · Answer

Lol, j'ai encore un post de retard...

cptpingu · Answer

Est-ce que ta procedure est r&#233;ellement plus optimis&#233; ?

ComponentCount repr&#233;sente le nombre total de composant sur la form.

Tu risque donc de faire plus de tour de boucle que necessaire.

Sinon la maniere dont tu as &#233;crit ce code est interessant. (bien compact&#233;, le strict n&#233;cessaire en fait)

jlen100 · Answer

simple petite remarque en DELPHI l'incrementation se fait par la fonction inc( i ) et non i++ qui est une syntaxe du C

rsamourai · Answer

ben merci beaucoup!!!!!

vous &#234;te plust&#244;t rapide a repondre, je pensait que sa prendrai plus de temps, en tout cas merc...
et en faite je programme en c et c++, et donc j'ai souvent des erreur de syntaxe qd je passe a delphi...

ben merci encore

jlen100 · Answer

c'est bien ce qu'il me semblait que tu venais du C .

c'est une erreur fr&#233;quente que l'on fait quand on travaille sur les 2 langages ( j'en ai deja fait la cuisante esp&#233;rience)

d'autre part si tu commence juste de programmer en DELPHI m&#233;fie toi
aussi des faux amis genre char du C qui  BYTE en DELPHI (le char
de DELPHI est unsigned char du C et ceci pour ne siter que cet exemple

d'autre part DELPHI est beaucoup moins tol&#233;rant que C et n'autorise pas
comme en C les manipulations sur les variables de boucles for ce qui
d'ailleurs &#233;vite pas mal d'erreur ou de surprises &#224; l'&#233;xecution (que
celui qui en C n'a jamais modifier involontairement la variable de
boucle en C me jette la premiere pierre)

japee · Answer

Tu as raison, CptPingu, &#231;a doit &#234;tre plus rapide en utilisant FindComponent(). 



Du coup, mon code deviendrait :



const NbrPicker: Integer = 40; // nombre de TDateTimePicker

var i: Integer;

begin

  for i := 1 to NbrPicker do

    TDateTimePicker(FindComponent('Picker' + IntToStr(i))).Visible := i <= StrToInt(EditNbr.Text);

end;



Bonne prog' 



japee

japee · Answer

En plus, je m'apercois que mon premier code devenait faux pour un
nombre de TDateTimePicker d&#233;passant 9 (nombre &#224; deux chiffres).

C'est facile &#224; rectifier, mais l'usage de FindComponent est d&#233;cid&#233;ment plus simple.



Bonne prog', pfff... qu'est-ce qu'il fait chaud...

Rajouter des composant avec un while

10 réponses

Votre réponse

Discussions similaires