Discussion :

[Moez.B]

Bonjour,
Je veux parcourir un objet de type TObjectList avec la boucle for ... in, voici le bout de code

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 le message d'erreur suivant : E2010 Types incompatibles : 'TScheduledEvent' et 'Pointer'

j'ai essayé d'utiliser une variable locale de type pointeur sur la même variable de parcours

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;

J'ai eu alors ce message d'erreur : E1019 La variable de contrôle de boucle FOR doit être une variable locale simple
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

[Linkin]

EventList est-elle de type TObjectList<TScheduledEvent>?

[ShaiLeTroll]

for in est pour les Generics
Est-ce bien une TObjectList Generics ? et non celle de l'unité Contnrs ?
Est-ce même une TObjectList et pas un simple TList (unité Classes) car Pointer c'est une TList
Ne pas confondre Classes.TList et TList<>

En XE2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TZooThomVCLMainForm.pnl1Click(Sender: TObject);
type
  TButtonList = System.Generics.Collections.TObjectList<TButton>;
var
  bl: TButtonList;
  I: Integer;
  b: TButton;
begin
  bl := TButtonList.Create(False);
  try
    bl.Add(btn1);
    bl.Add(btn2);
    bl.Add(btn3);
 
    for b in bl do
      ShowMessage(b.Caption);
 
  finally
    bl.Free();
  end;
end;

[Linkin]

@ShaiLeTroll:
Si on utilise un TObjectList non générique, on obtient bien le message E2010 Types incompatibles : 'TScheduledEvent' et 'Pointer'.
Je m'attendais à un message E2010 Types incompatibles : 'TScheduledEvent' et 'TObject', mais non.

[Moez.B]

Salut

EventList est de type TSchEventList et en définition

Code :

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

1
2
 
 TSchEventList = class(TObjectList)

TObjectList n'est pas celle la générique dans Generics.Collections.TObjectList, mais c'est dans l'unité Contnrs.

Merci

[Linkin]

Si ce n'est pas une liste générique, ce n'est pas possible d'utiliser le for in de cette façon.

Tu peux utiliser cela, mais c'est dommage de se passer des génériques.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TListnerAppForPrincipalApp.btStopAllThreadClick(Sender: TObject);
var
  vShedule: TScheduledEvent;
  vSchedulePointer:Pointer;
begin
  for vSchedulePointer in EventList do
  begin
    vShedule:=TScheduledEvent(vSchedulePointer);    if vShedule.Running then
      vShedule.Stop; end;

[Papy214]

Le "For..in" n'est pas réservé aux génériques (voir exemple ci-dessous avec TStringList).
Sinon, la solution peut se voir comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
var
  Liste: TStringList;
  S: string;
  Events: TSchEventList;
  Event: TScheduledEvent;
  Obj: Pointer;
begin
  Liste := TStringList.Create;
  Liste.Add('Titi');
  for S in Liste do
    ShowMessage(S);
  Liste.Free;
 
  Events := TSchEventList.Create;
  Events.Add('Toto');
  for Obj in Events do
  begin
    ShowMessage(TScheduledEvent(Obj).Name);
  end;
  Events.Free;
end;

Bon w_e !

[ShaiLeTroll]

Le "For..in" n'est pas réservé aux génériques (voir exemple ci-dessous avec TStringList).
Sinon, la solution peut se voir comme suit:

Effectivement, Papy a bien raison !
Je ne bosse sur Delphi XE2 que depuis quelques mois et j'ai commis une erreur !
Je pensais que le for in était lié à IEnumerable<T> et IEnumerable mais c'est bien plus flou que cela !

- Les types primitifs reconnus par le compilateur, tels que les tableaux, les ensembles ou les chaînes
- Les types qui implémentent IEnumerable
- Les types qui implémentent le modèle GetEnumerator comme documenté dans le Guide du langage Delphi

Le "for in" est réservé au classe implémentant une méthode GetEnumerator pour la RTL classique comme la TStringList mais sans implémenter IEnumerable
Pour la RTL generics, les collections héritent de TEnumerable<> qui implémente GetEnumerator mais toujours pas de trace de IEnumerable

Faudrait voir ce que donne de coder un GetEnumerator et si le compilateur le détecte !
Et que se passe-t-il si l'un fait un code tout foireux ?!

Je ne sais pas comment ils ont bricolés ça !
Mais GetEnumerator pue de la magie intégrée au compilateur !
Un sujet traitait des for in sur des énumérations,
il me semble que cela n'a été très optimisé !

Cela n'utilise quasiment jamais l'interface IEnumerable, pas de type ancêtre, pas directive de compilation !
C'est pas très beau ce qu'on commit les développeurs RTL !

Du coup, on a un truc bien vilain !
La TObjectList hérite de la TList
La TObjecList NE défini PAS de GetEnumerator
La TList a défini un GetEnumerator de type TListEnumerator avec Current de type Pointer
La TObjectList hérite donc du GetEnumerator en élément de Pointer !

D'où " E2010 Types incompatibles : 'TScheduledEvent' et 'Pointer' "
CQFD !

[Moez.B]

Bonjour,

Il fallait donc parcourir mon TObjectList avec une variable de type pointeur sans pointer sur mon objet TScheduledEvent avec le mot réservé Absolute.
Merci Shail pour toutes ces précieuses explications, je comprends maintenant pourquoi il fallait parcourir un TObjectList 'classique' avec un pointeur avec la boucle for .. in

Merci aussi pour tout le monde

Bonne journée.

[Paul TOTH]

Effectivement, Papy a bien raison !
Je ne bosse sur Delphi XE2 que depuis quelques mois et j'ai commis une erreur !
Je pensais que le for in était lié à IEnumerable<T> et IEnumerable mais c'est bien plus flou que cela !

je n'ai pas regardé moi même mais voici un article intéressant sur le sujet

http://delphi.about.com/od/oopindelp...iterations.htm

[Roland Chastain]

Je note que le code proposé par Papy214 compile bien avec XE2, mais pas avec Delphi 7.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program StringList_02;
 
{$APPTYPE CONSOLE}
 
uses
{$IFDEF VER150}
  Classes, Dialogs;
{$ENDIF}
{$IFDEF VER230}
  System.Classes, Vcl.Dialogs;
{$ENDIF}
 
var
  Liste: TStringList;
  s: string;
 
begin
  Liste := TStringList.Create;
  Liste.Add('Titi');
  for s in Liste do // Opérateur non applicable à ce type d'opérande (Delphi 7)
    ShowMessage(s);
  Liste.Free;
end.

[Papy214]

Je note que le code proposé par Papy214 compile bien avec XE2, mais pas avec Delphi 7.

Normal ! Le for..in n'existait pas encore dans cette version

[Roland Chastain]

Normal ! Le for..in n'existait pas encore dans cette version

Bon, j'ai perdu une occasion de me taire.

Merci pour la précision.

[Papy214]

Bon, j'ai perdu une occasion de me taire.

Mais non ... Si mes souvenirs sont bons, c'est arrivé avec Delphi 2005.

Et comme disait ma grand-mère: "Tout le monde peut se tromper, comme disait le hérisson en descendant d'une brosse à cheveux"