Discussion :

[freud]

Bonjour à tous,

Curieux, mais dans mon projet j'obtiens un access violation lorsque je fais :

Code :

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

1
2
 
(TForm(Application.Findcomponent('frmListe')).FindComponent('edSuffixe') as TMemo).Color:=clRed;

je dis curieux parce que ca marche dans un autre projet vide pour tester la meme instruction .
Auriez-vous SVP un idée d'ou cela peut provenir ?
Merci

[Paul TOTH]

et pourquoi diable n'utilises tu pas simplement frmListe.edSuffixe.Color := clRed, voir edSuffixe.Color := clRed si le contexte le permet ?!

[pprem]

Les violations d'accès se produisent lorsqu'on tente d'accéder à des espaces mémoires par l'intermédiaire d'objets alors qu'ils ne sont pas initialisés ou ne correspondent pas à ce que l'on veut y prendre.

Dans ton cas, avec cette ligne, il y a au moins trois raisons pour lesquelles ça peut se produire :
- Application.Findcomponent('frmListe') peut renvoyer nil, l'utiliser sans vérifier peut générer une violation d'accès si le composant frmListe n'existe pas (ou que ta fiche n'existe pas).
- ...FindComponent('edSuffixe') peut également retourner nil et planter
- pour finir si le premier n'est pas un TForm ou que le second n'est pas un TMemo, ça ne passera pas correctement à l'exécution même si le compilateur est susceptible de laisser passer à cause des transtypages.

Mon conseil pour éviter les mauvaises surprises : découpe ta ligne en plusieurs blocs et teste systématiquement le résultat des affectations. En plus, si tu es sous Delphi 10.3 ou une version ultérieure tu peux le faire en limitant les appels sans trop te prendre la tête sous la forme suivante (non testée, saisie directement ici, donc à tester) :

Code :

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

1
2
3
4
5
6
7
8
 
var c1 := Application.Findcomponent('frmListe');
if assigned(c1) and (c1 is TForm) then begin
  var c2 := (c1 as TForm).FindComponent('edSuffixe');
  if assigned(c2) and (c2 is TMemo) then begin
    (c2 as TMemo).Color := clRed;
  end;
end;

Si tu n'es pas sous la 10.3 ou après, il te faut déclarer c1 et c2 en début de procédure/fonction ou code et te contenter des affectations là où je les ai mises ci-dessus.

[vendomele]

Bonjour à tous,

Curieux, mais dans mon projet j'obtiens un access violation lorsque je fais :

Code :

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

1
2
 
(TForm(Application.Findcomponent('frmListe')).FindComponent('edSuffixe') as TMemo).Color:=clRed;

je dis curieux parce que ca marche dans un autre projet vide pour tester la meme instruction .
Auriez-vous SVP un idée d'ou cela peut provenir ?
Merci

Bonjour,

La ligne d'instruction en elle-même n'est pas fausse, même si pour ma part j'aurai fait des tests, pour voir d'abord si je récupère bien la form, un autre test pour être certains d'avoir la main sur le memo, avant d'assigner une valeur à une propriété du memo.

Vous-dites que cela fonctionne sur un autre projet, tout dépend à quel moment cette instruction est appelée.

Êtes-vous certain que la form recherchée a bien été créée au moment d'appeler votre instruction ?

[freud]

Re tout le monde et merci pour vos réponses.

et pourquoi diable n'utilises tu pas simplement frmListe.edSuffixe.Color := clRed, voir edSuffixe.Color := clRed si le contexte le permet ?!

Parce que le contexte ne le permet pas etant donnée que je faire ca dans plusieurs fiches avec du code supplémentaire de controle des zones (zone vide, à zéro, le tag etc.). Alors j'ai une routine dans une unité dédiée aux routines. Il suffit de l'appeler en lui passant une table et l'objet form.

Êtes-vous certain que la form recherchée a bien été créée au moment d'appeler votre instruction ?

Sur et certain mais comme vous dites tout dépend du moment de l'appel parce que le projet test est vide mais aussi cela dépendra peut-être de la version de delphi j'ai un vieux D7 sous XP pro

pprem ---->> ton conseil est méthodique mais :

Code :

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

1
2
 
var c1 := Application.Findcomponent('frmListe');

renvoi nil, c1 contient nil

Bref, j'avais penser qu'avec 2 instructions je vous pouvais régler le problème et pour ne pas vous embetter en evitant de trainer la déssus j'ai opter pour un autre code repris depuis mon unité et qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For i:=0 to oForm.ComponentCount-1 do
  Begin
   if oForm.Components[i] Is TMemo then
   Begin
   If (oForm.Components[i] as TMemo ).Name=CompoName then
    Begin
     (oForm.Components[i] as TMemo ).Color:=clRed;
    end;
   end;
  end;

Merci tout le monde pour vos interventions.

[pprem]

pprem ---->> ton conseil est méthodique mais :

Code :

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

1
2
 
var c1 := Application.Findcomponent('frmListe');

renvoi nil, c1 contient nil

D'où l'intérêt du test Assigned() qui vérifie s'il est exploitable.

Bref, j'avais penser qu'avec 2 instructions je vous pouvais régler le problème et pour ne pas vous embetter en evitant de trainer la déssus j'ai opter pour un autre code repris depuis mon unité et qui marche:

Que tu utilises des boucles "à la main" ou le FindComponent n'oublie pas que c'est quand même chronophage, donc fais tout ce que tu peux pour limiter cette utilisation et surtout ne pas les faire plusieurs fois si tu as trouvé les composants qui t'intéressent.

[freud]

....donc fais tout ce que tu peux pour limiter cette utilisation et surtout ne pas les faire plusieurs fois si tu as trouvé les composants qui t'intéressent.

Je tâcherais, merci pour ton conseil.