Comment passer en revue un tableau de TButton ?Résolu

Question

Bonjours &#224; tous !

J'ai cr&#233;&#233;e un tableau de TWebBrowser de longueur 15.
A Chaque fois que je cr&#233;e un TWebBrowser je rempli mon tableau avec.
Cependant ces derniers peuvent etre d&#233;truits al&#233;atoirement (ex: je cr&#233;e 10 TWebBrowser et rempli mon tableau avec de 1 &#224; 10, puis je supprime le 2nd, le 5eme et le 8eme).
Comment est il possible de parcourir ce tableau afin de connaitre les emplacements vides et ceux contenant mes TWebBrowser restants ???

En gros comment tester les emplacements vides sans faire planter l'appli ???

Mes proc&#233;dures principales :

var
   ArrayWBrowser           :   array[1..15] of TWebBrowser;
   CustomWB                 :   TWebBrowser;
   I                              :   Integer; //Compteur

procedure TForm1.FormCreate(Sender: TObject);
begin
   I:= 1;
 end ;

//Cr&#233;e un WebBrowser.
Procedure TForm1.CreateWB; //Appel&#233;e par un Button1.Click
begin
   CustomWB : = TWebBrowser.Create(TForm1);
   With CustomWB do begin
      ...
   end;
   I:= I+1;
   AddInArray(CustomWB);
 end ;

//Ajoute un WebBrowser dans le ArrayWBrowser.
Procedure TForm1.AddInArray(WB : TWebBrowser);
begin
   ArrayWBrowser[I]: =WB;
end;

//Supprime un WebBrowser.
Procedure TForm1.DelWB(N : integer);  //N re&#231;oit inttostr(Edit1.Text) puis est appel&#233; par Button2.Click.
begin
   ArrayWBrowser[N].free;
end;

//Lecture du tableau.
procedure TForm1.ReadArray; //Appel&#233; par Button3.Click
var
   m   :   integer; //Compteur
begin
   For m:=0 to Length(ArrayWBrowser) do Showmessage(ArrayWBrowser[m].Name); //C'est ici que &#231;a plante si ArrayWBrowser est vide !!!
end;

Pour info : Je sais que j'aurais pu utiliser un TComponentList ou TObjectList pour stocker mes WebBrowser mais je voulais absolument travailler avec un tableau.

Merci pour vos r&#233;actions.

jmp77 · Accepted Answer

Ouais c'est bizarre peut etre un leger bug delphi.

J'ai fais le test et c'est vrai qu'il faut penser a remettre nil sinon bug.



Mais en ecrivant je viens de penser a cette commande FreeAndNil dont je
me demandais l'interet et je viens de tester elle est utile ici 

FreeAndNil(ArrayWBrowser[N]); 
&#233;quivaut &#224; 

ArrayWBrowser[N].free;

ArrayWBrowser[N]:= nil;






Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jm2mars · Answer

Oups désolé pour le titre qui est trompeur ! Puisqu'il s'agit de TWebBrowser et non de ~~TButton~~ !! Veuillez m'excuser de l'erreur, faut dire qu'il est presque 6 h00 du mat' est je suis un peu creuvé.

jmp77 · Answer

Hello,



Voici ce qu'il faut faire pour pas que ca plante :

//Lecture du tableau.

procedure TForm1.ReadArray; //Appel&#233; par Button3.Click

var

   m   :   integer; //Compteur

begin



   For m:=1 to Length(ArrayWBrowser) do



      If not(ArrayWBrowser[m] = nil) then

      Showmessage(ArrayWBrowser[m].Name); //C'est ici que &#231;a plante si ArrayWBrowser est vide !!!

end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Kenavo · Answer

Salut,



Quand tu lib&#232;re un TWebBrowser,  remets l'&#233;l&#233;ment du tableau &#224; nil




Procedure TForm1.DelWB(N : integer);

begin

   ArrayWBrowser[N].free;

   ArrayWBrowser[N]:= nil;

end;




Apr&#232;s v&#233;rifie  son existence avant de l'utiliser:



 For m:=0 to Length(ArrayWBrowser) do 

    if 
ArrayWBrowser[m]<> nil then

      Showmessage(ArrayWBrowser[m].Name)





Ken@vo

____________________

Code, Code, Codec !

JulioDelphi · Answer

JMP77 : J'array pas dit mieux 

JM2 : j'aime bien &#231;a, c propre :

//Ajoute un WebBrowser dans le ArrayWBrowser.
Procedure TForm1.AddInArray(WB : TWebBrowser);

begin
   ArrayWBrowser[I]:=WB;

end;

jmp77 · Answer

Ah oui bonne precision de kenavo ne pas oublier de remettre nil dans la tableau quand tu detruits un compos.

Merci pour cette precision kenavo.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Kenavo · Answer

oui tu as vu  JMP77,

Aussi &#233;trange que cela puisse parra&#238;tre, l'appel &#224; free ne remet pas
l'&#233;l&#233;ment d'un tableau d'objet &#224; nil (contrairement &#224; l'appel &#224; free
d'un objet qui remet celui-ci &#224; nil). Donc le test d&#233;conne : 
ArrayWBrowser[m] existe encore apr&#232;s free, par contre il pointe sur un "squelette" d'objet totalement "d&#233;charn&#233;" ; d'o&#249; erreurs  !




Ken@vo
____________________
Code, Code, Codec !

jm2mars · Answer

Merci beaucoup &#224; tous pour vos r&#233;actions rapides !
Si j'aurais pu, j'aurais cliqu&#233; sur "R&#233;ponse accept&#233;e" de tous tant vos r&#233;ponses furent explicites et bien &#233;videment correctes ! 

Encore merci et &#224; bient&#244;t !

cs_Kenavo · Answer

Tiens, FreeAndNil, encore une fonction inexistante sous Delphi 4



Ken@vo

____________________

Code, Code, Codec !

jmp77 · Answer

Ah oups desole Kenavo.

Au moins ca montre que pour chaque nouvelle version de delphi il y a des &#233;volutions LOL 

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Comment passer en revue un tableau de TButton ?

10 réponses

Votre réponse

Discussions similaires