Discussion :

[Benzouye]

Bonjour,

Sur un formulaire, à l'événement ShowForm, je crée dynamiquement des objets TMemo. A l'événement FormClose, je voudrais supprimer définitivement et proprement ces TMemo.

J'ai commencé à travailler ainsi :

Code :

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

1
2
3
4
5
6
7
8
procedure Tf_comment.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var
    i:integer;
begin
    for i := 0 to ComponentCount - 1 do
        if Components[i] is TMemo then
            Components[i].Free;
end;

Mais je me retrouve avec une erreur au runtime.

Alors qu'avec ce code :

Code :

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

1
2
3
4
5
6
7
8
procedure Tf_comment.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var
    i:integer;
begin
    for i := 0 to ComponentCount - 1 do
        if Components[i] is TMemo then
            showmessage( Components[i].Name );
end;

Je n'ai pas d'erreur et j'ai bien x messages avec le nom de mes x TMemo créés ...

Si vous pouviez jeter un œil et me conseiller.

D'avance merci.