Discussion :

[cartebleue]

Bonjour,
Après quelques heures de recherches, je n'arrive pas à mes fins.
Je cherche à récupérer les valeurs d'un nombre variable de TSpinEdit créés dynamiquement.

Voici le code de la création des TSpinEdit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Affichage;
var
  i, j : integer;
  Sedit : TSpinEdit;  
For i:=1 To FormAjout.DBGrid1.datasource.dataset.RecordCount do
begin
  Sedit := TSpinEdit.Create(FormAjout);
  Sedit.Name := 'SpinEdit_'+ IntToStr(i);
  Sedit.Parent := FormAjout;
[...]
  Sedit.Value := 0;
end;

Une de mes tentatives pour récupérer ces valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
 
var i, spin : integer;
 
begin
     For i:=0 To FormAjout.ComponentCount do
         begin
              if FormAjout.Components[i] is TSpinEdit then
                   spin := FormAjout.Components[i].Value;
         end;

Me retourne une erreur "Error: identifier idents no member "Value""

Si quelqu'un a une méthode ou un explication pour moi... !

Lazarus en version 1.6.4

[M.Dlb]

Hello,

Sans avoir testé, je pense qu'il faut faire un transtypage :

Code :

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

spin := TSpinEdit(FormAjout.Components[i]).Value;

[cartebleue]

Cela fonctionne, génial, un grand merci M.Dlb !
Tu as plus d'explications sur cela ? J'avoue que je ne comprends pas tout sur ce point...

[Jipété]

Salut,

Tu as plus d'explications sur cela ? J'avoue que je ne comprends pas tout sur ce point...

Code :

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

1
2
 
  spin := FormAjout.Components[i].Value;

Me retourne une erreur "Error: identifier idents no member "Value""

Au moment de la compilation, le compilateur ne sait pas de quel composant il s'agit.
Certains n'ayant pas de membre value, il ne prend pas de risque et te renvoie dans les cordes pour y revoir ta copie.

[tourlourou]

if FormAjout.Components[i] is TSpinEdit : is teste l'identité de type de l'objet (au sens de descendant de TObject) au type à comparer (l'objet testé est-il compatible avec le type proposé, cad en est-il un ou un de ses descendants).
Pour autant, FormAjout.Components[i] est une référence dans un tableau typé, renvoyée en tant qu'objet du type TComponent.
Le compilateur ne peut donc résoudre sa propriété Value, qui n'existe qu'en tant que TSpinEdit, descendant du type TComponent.
Il est donc nécessaire de demander au compilateur de considérer l'objet comme de tel ou tel type, comme l'a écrit M.Dlb.
Une autre syntaxe serait : with FormAjout.Components[i] as TSpinEdit do Value := i;

[cartebleue]

Merci à tous, très intéressantes remarques !

[cartebleue]

Salut !

Pour faire suite au code publié sur le premier post, j'ai quelques interrogations supplémentaires :

Code :

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

Sedit := TSpinEdit.Create(FormAjout);

D'après ce que j'ai compris, le propriétaire de cet objet est bien "FormAjout". Donc après l'action FormAjout.Close; je devrais pouvoir rouvrir le form et créer de nouveau ces objets ?

Malheureusement, je tombe sur une erreur

Code :

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

Duplicate name: a component named Spinedit_1 already exists

Une piste pour moi ?

[BeanzMaster]

Salut

FormAjout.Close ferme ta fenêtre mais ne l'a détruit pas
Il ne faut donc pas oublié également de "libérer" ton objet "SpinEdit_1" si tu veux le réassigner ailleur.

Sinon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  FormAjout := TForm.Create(nil) // ici je ne me rappel plus mais de mémoire je crois qu'il faut plutôt utiliser "CreateNew" je ne sais plus trop pourquoi par contre :(
  SpinEdit_1 := TSpinEdit.Create(FormAjout);
  With SpinEdit_1 do
  begin
     top:=100;
     parent := FormAjout;
  end;
  Formajout.ShowModal;
  ....
  //FormatAjout.Close;  
  FreeAndNil(Formajout); //--> à la place de Close

cf : http://wiki.freepascal.org/Form_Tuto...rm_dynamically

A+

[cartebleue]

BeanzMaster,
Merci pour ta réponse.

Si j'essaie avec FreeAndNil(Formajout); j'ai systématiquement une erreur "External SIGSEGV".

Pour info, mon Form n'est pas créé dynamiquement. Ce sont seulement les SpinEdit qui sont ajoutés dynamiquement.
Il me semblait donc que la fermeture du Form, ouvert avec un ShowModal, entraînait le Free et donc le Destroy.

[Jipété]

Il me semblait donc que la fermeture du Form, ouvert avec un ShowModal, entraînait le Free et donc le Destroy.

Le ShowModal affiche la form d'une manière modale et sa fermeture la cache ("hide"), ne la détruit pas.

Faut faire autrement, par exemple créer la form dynamiquement.

[cartebleue]

Merci Jipété.

J'ai refait un programme avec un Form1 et un bouton. L'appui sur le bouton ouvre un second Form (Form2) :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     Form2.ShowModal;
     FreeAndNil(form2);
end;

Lorsque je lance l'exécution : le Form2 s'ouvre correctement, je le referme et je reclique sur le bouton : erreur SIGSEGV...
Je comprends bien que je n'utilise pas la création dynamique de formulaire mais c'est volontaire...

Y a-t-il une solution ? Qu'est-ce que je ne comprends pas correctement ?!

[BeanzMaster]

Merci Jipété.

J'ai refait un programme avec un Form1 et un bouton. L'appui sur le bouton ouvre un second Form (Form2) :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     Form2.ShowModal;
     FreeAndNil(form2);
end;

Lorsque je lance l'exécution : le Form2 s'ouvre correctement, je le referme et je reclique sur le bouton : erreur SIGSEGV...
Je comprends bien que je n'utilise pas la création dynamique de formulaire mais c'est volontaire...

Y a-t-il une solution ? Qu'est-ce que je ne comprends pas correctement ?!

Tu doit déréférencer ta form dans les options de ton projet



ensuite :

Tu place l'unté de formajout dans les uses puis

Code :

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

1
2
3
4
5
6
7
8
9
10
 
FormAjout := TFormAjout.Create(nil); //----> CREATION DYNAMIQUE DE LA FENETRE
SpinEdit_1 := TSpinEdit.Create(FormAjout);
With SpinEdit_1 do
begin
   top:=100;
   parent := FormAjout;
end;
Formajout.ShowModal;
FreeAndNil(FormAjout);

[cartebleue]

Super merci à tous, j'ai réussi à avancer dans mon projet grâce à vos précieux conseils !!