Discussion :

[fveto]

Bonjour à tous,

Pour obtenir le N° de contrôle d'un champs, je fais :

Code :

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

1
2
3
4
5
6
7
 
     For N := 0 To PL.ControlCount-1 Do
     Begin
          If (PL.Controls[N] Is TdbEdit) And (TdbEdit (PL.Controls [N]).Name   = 'Client') Then
             .....
          If (PL.Controls [N] Is TDBLookupComboBox) And (TDBLookupComboBox (PL.Controls [N]).Name   = 'Ville') Then
             .....

Ca fonctionne avec le TdbEdit mais pas avec TDBLookupComboBox, il génère une erreur (violation d'accès à l'adresse ... dans le module vcl60.bpl)

Comment je pourrai connaitre le N° de contrôle de TDBLookupComboBox SVP ?

Merci à tous

[ShaiLeTroll]

Utilise plutôt FindComponent

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  cpt: TComponent;
begin
  cpt := FindComponent('Client');
  if cpt is TdbEdit then
    TdbEdit(cpt)...
 
  cpt := FindComponent('Ville');
  if cpt is TDBLookupComboBox then
    TDBLookupComboBox(cpt)...

Il n'y a aucune raison que cela fonctionne pour le TdbEdit et pas pour le TDBLookupComboBox
Pourquoi as-tu besoin de faire ce genre de boucle, en général, ce n'est pas utile

Tu as une autre erreur ailleurs !
Une violation d'accès, ce n'est pas forcément au moment qu'elle se déclenche mais un autre code qui a fait n'importe quoi, il a endommagé une zone de mémoire pouvant contenir des adresses
Lorsque tu tentes de lire l'emplacement de l'adresse, comme cela pointe n'importe où, c'est là que ça plante !

[fveto]

Merci ShaiLeTroll.

Effectivement, ça marche !!!!