Bonjour,
Je veux parcourir un objet de type TObjectList avec la boucle for ... in, voici le bout de code
j'ai le message d'erreur suivant : E2010 Types incompatibles : 'TScheduledEvent' et 'Pointer'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TListnerAppForPrincipalApp.btStopAllThreadClick(Sender: TObject); var vShedule: TScheduledEvent; begin for vShedule in EventList do begin if vShedule.Running then vShedule.Stop; end; end;
j'ai essayé d'utiliser une variable locale de type pointeur sur la même variable de parcours
J'ai eu alors ce message d'erreur : E1019 La variable de contrôle de boucle FOR doit être une variable locale simple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TListnerAppForPrincipalApp.btStopAllThreadClick(Sender: TObject); var vShedule: TScheduledEvent; vItem: Pointer Absolute vShedule; begin for vItem in EventList do begin if vItem.Running then vItem.Stop; end; end;
C'est ici que je ne trouve pas de réponse car vItem est de type pointeur en local.
Alors, comment parcourir mon EventList qui est de type TObjectList avec la boucle for ... in
Merci d'avance
Partager