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 ?