Discussion :

[jodan33]

Bonjour,
est ce que quelqu'un pourrait m'expliquer ce bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if ((Controls[i] is TImage) and (Controls[i].Name=NULLS)) then
      if PTable((Controls[i] as Timage).Tag)^.num_table=_tagsel then id_save:=i;

j'ai des idées mais bon c'est chaud pour moi!!!

;

[anapurna]

salut

bon on va decortiquer un peut le truc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ((Controls[i] is TImage)

a priori tu fait une boucle sur les control d'une forme
et tu essai de trouver un composant de type TImage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

and (Controls[i].Name=NULLS)) then

bon la c'est si le controle n'a pas de nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 if PTable((Controls[i] as Timage).Tag)^.num_table =_tagsel then

donc la tu cherche dans une ptable (je supose que le p c'est pour pointeur )
a l'indice tag du controle precite si le numtable corespond au tagsel (je suppose tag selectionné) soit une valeur bien definie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 id_save:=i;

si oui tu affect l'indice de control a id_save

@+ Phil

[jodan33]

Merci , poutr tes explications qui me sont d'une grande utilité , j'avais a peut pret compris , tes explications m'apportent des précisions importantes par rapport à un programme sur lequle je dois faire des modifs.

[Pedro]

Salut

N'oublie pas de cliquer sur