Discussion :

[dacid]

Bonjour à tous,

J'ai une application MDI et dans la fille, j'ai une variable tableau de structure qui n'existe que dans la fille (déclaration, affectation, ...) et une variable qui compte le nombre d'élements de ce tableau:

Code :

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

1
2
3
4
5
6
7
type
  tElement = record
    id,haut,gauche,l,h: Integer;
   end;
var
  tabElements: array of tElement;
  lTabElements: Integer; // Nombre d'elements

A chaque création de fille, j'initialise lTabElements à 0.

Lors de l'utilisation de l'application, le tableau se remplit et tout marche à merveille.
Seulement, lorsque je crée une deuxième fille MDI, la variable de la première fille se réinitialise à 0 (c'est comme si c'était une variable globale).

Je crée mes filles comme ceci (c'est l'assistant qui le fait):

Code :

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

1
2
3
4
5
6
procedure TfrmMain.CreateMDIChild(const Name: string);
var Child: TMDIChild;
begin { crée une nouvelle fenêtre enfant MDI }
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
end;

Comment faire pour que chaque fille MDI soit indépendante des autres ?

Merci d'avance.

[Pedro]

Salut
Si tu veux que chaque fiche soit indépendante, déclare les variables qui les concerne en tant que membre de TMDIChild

Code :

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

1
2
3
4
5
6
7
8
9
 
TMDIChild=class(TFom)
private
  ...
public
  tabElements: array of tElement; 
  lTabElements: Integer;
  ...
end;

Bon dev'

[RamDevTeam]

si tu déclare tes variables en var, elles sont visibles pour toutes les autres unités qui utilise FIlleMDIU dans leur clause uses,

donc quand tu créé une nouvelle fille, tu écrase la référence de la variable précédente.

Pour résoudre, utiliser des propriété que tu place en Private ou Public suivant l'usage qu etu veux en faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type telement=record 
 ....
 
end;
 
Type TaFilleMID=class(Tform);
...
private
  tabElements: array of tElement;
  lTabElements: Integer; // Nombre d'elements

[dacid]

Salut RamDevTeam et Pedro204,

Merci beaucoup, ca marche !

En fait, j'ai créé une unité commune ou je déclare ma structure propre à toutes les filles.

[Pedro]

N'oublie pas le chtit

[dacid]

Oups, excuses moi... Ce n'est pas dans mes habitudes (trop pressé de me remettre au travail maintenant que ça marche, hi)