Réutilisation d'objet s TLabel dans une fonctionRésolu

Question

Hello!


Je r&#233;alise un programme en Delphi, permettant de faire un ping d'une plage d'adresses IP.
J'ai 254 Labels repr&#233;sentant chaque adresse.  Je souhaite que le Label soit en vert si l'adresse est joignable, et en rouge dans l'autre cas.


Actuellement je fais un contr&#244;le de chaque Label et j'attribue la couleur correspondante. Mais vu le nombre de Label, j'aimerais faire une fonction permettant de r&#233;utiliser le code.
Pour ce faire, j'utilise une boucle FOR de 1 &#224; 254. Je pense g&#233;n&#233;rer le nom du label en utilisant l'index du FOR. Les noms des Labels sont: L1, L2, L3... 
J'utiliserais une varaible en la chargeant comme ceci:
NomLabel :='L' + inttostr( i );    i &#233;tant l'index du FOR.
Il faudrait alors utiliser le NomLabel comme ceci:
NomLabel.Font.color:=clRed;
Le probl&#232;me est qu'il faudrait que NomLabel soit de type TLabel. Et quand je le d&#233;clare en TLabel, il essaye d'en recr&#233;er un au lieu de r&#233;utiliser celui existant.


Quelqu'un &#224; une solution ou la bonne m&#233;thode??


Merci!

japee · Accepted Answer

En gros, j'y reviens, j'ai un peu de temps &#224; tuer, lol, &#231;a pourrait donner un truc comme &#231;a :



procedure TForm1.ColorizeLabel;

const NbrLabels: Integer = 254; // nombre de Labels

var

  i: Integer;

  ALabel: TLabel;

begin

  for i := 1 to NbrLabels do

  begin

    ALabel := TLabel(FindComponent('L' + IntToStr(i)));

    if AdresseJoignable(ALabel) then // ta fonction qui renvoie True ou False

      ALabel.Font.Color := clGreen

    else

      ALabel.Font.Color := clRed;

  end;

end;



Bonne prog' 



japee

WinLin · Answer

pour moi je pense que tu devrais regarder dans le transptypage
et cr&#233;e un objet a la vol&#233;e enfin je pense

draft61 · Answer

G&#233;nial Japee!

Je ne connaissais pas du tout cette m&#233;thode.
On peut dire que &#231;a va changer mon code!

Merci du coup de pouce!

A+

Réutilisation d'objet s TLabel dans une fonction

3 réponses

Votre réponse

Discussions similaires