Discussion :

[BuzzLeclaire]

Bonjour, bonsoir

Je vais peut-être passé pour un boulet, mais voilà.
J'ai besoin de detruire certaine form qui ont été créer dynamiquement.
Donc je parcours les form de cette façon

Code :

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

1
2
3
4
5
6
7
8
        // On detruit les fenêtres Midi qui ouvrait cette table
          For i:= Self.ComponentCount - 1 downto 0 do
          begin
            if(Self.Components[i] is TForm)
              And (Self.Components[i].Name <> Self.Name)
                And (StrPos(PChar(Self.Components[i].Caption),Pchar(TableASupprimer)) <> nil) then
                Components[i].Destroy;
          end;

Cette ligne ne fonctionne pas
(StrPos(PChar(Self.Components[i].Caption),Pchar(TableASupprimer)) <> nil)

car Self.Components[i].Caption n'ai pas accessible !!!

Comment faire quand on ne connait pas le name de la form seulement son caption ?

Merci.

[Nono40]

Components [] renvoi un TComponent, donc seulement ses propriétés sont acessible à la compilcation. Il faut transtyper dans le type voulu pour compiler comme il le faut :

Code :

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

1
2
3
4
5
6
7
8
        // On detruit les fenêtres Midi qui ouvrait cette table
          For i:= Self.ComponentCount - 1 downto 0 do
          begin
            if(Self.Components[i] is TForm)
              And (Self.Components[i].Name <> Self.Name)
                And (Pos(TableASupprimer,TForm(Self.Components[i]).Caption)<>0) then
                Components[i].Destroy;
          end;

Note qu'il faut être sur du type avant de transtyper, mais tu le vérifies déjà au début du test. Il n'y a donc pas de soucis.

PS : StrPos c'est du C J'ai mis Pos à la place

[BuzzLeclaire]

Salut Nono40 et merci

le Transtypage fonctionne bien

Mais l'utilisation me génère une erreur
EListerror 'List error out of bound(43)'

Pourtant cela fonctionne ailleur dans mon programme.

J'ai retiré le transtypage rien y change.

Pour quelle raison j'ai ce message ?

[edam]

pourquoi pas utilisé une liste globale de tes forme comme du genre garbagecollector , où tu met seulement les référence et le caption