Pb avec FindComponentRésolu

Question

Bonjour,
D&#233;butant (en Delphi 3)
j'ai un message d'erreur lors de l'excecution du code ci-dessous.
Const
  TabloLigne1: array[1..3] of String = ('Edit_L1_C1_G1_01','Edit_L1_C2_G1_02','Edit_L1_C3_G1_03');
  TabloLigne2: array[1..3] of String = ('Edit_L2_C1_G1_10','Edit_L2_C2_G1_11','Edit_L2_C3_G1_12');


procedure TForm1.TestClick(Sender: TObject);
Var Tablo:Tcomponent;essai:String[2]
begin
   if essai='Mu' then Tablo:=TabloLigne1 else Tablo:=TabloLigne2;


   if Tedit(FindComponent(Tablo[2])).text[1] = '1' then ... end;
end;

Je pense que Tablo ne doit pas etre de type Tcomponent mais je ne trouve pas la solution. J'ai aussi essay&#233; avec String. Le programme s'execute correctement si je ne n'utilise pas la variable Tablo et que je remplace par cette ligne : 
   if Tedit(FindComponent(TabloLigne1[2])).text[1] = '1' then ... end;

cs_Delphiprog · Accepted Answer

Tu commets quelques erreurs qui peuvent avoir pour effet imm&#233;diat de provoquer une magnifique AV.
Voir commentaires avec le code revu :

type
//D&#233;claration d'un type tableau de 3 chaines
  TTablo =   array [1..3] ofstring;

const
  TabloLigne1: TTablo  = ('Edit_L1_C1_G1_01', 'Edit_L1_C2_G1_02',
    'Edit_L1_C3_G1_03');
  TabloLigne2: TTablo =  ('Edit_L2_C1_G1_10', 'Edit_L2_C2_G1_11',
    'Edit_L2_C3_G1_12');

 procedure  TForm1.TestClick(Sender: TObject);
var
  Tablo: TTablo;
  essai: string[2];
  AComp: TComponent;
begin
{ta variable essai est vide &#224; ce niveau !!
  Donc Tablo est toujours &#224; TabloLigne2}
if essai  = 'Mu'then
    Tablo :=  TabloLigne1
  else
    Tablo := TabloLigne2;

  //Recherche d'un composant existant
  AComp := FindComponent(Tablo[2]);
  //S'il existe et que c'est bien un TEdit...
 if  Assigned(AComp) and (AComp is TEdit) then
begin
//l&#224; seulement tu peux transtyper AComp
if Tedit(AComp).Text[1]  = '1'then
//...
end;
end;


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

sterne29 · Answer

Merci, j'ai bien avanc&#233; dans mon programme grace &#224; tes conseils. Je me retrouve maintenant bloqu&#233; &#224; cause de Types incompatibles : TTablo et String. 


je dois, &#224; partir d'une chaine et d'un nombre avoir, TabloLigne1, Tabloligne2, ...


Exemple :


Tablo:='TabloLigne'+IntToStr(i);

cs_Delphiprog · Answer

Avec la fonction FindComponent il est possible de retrouver un composant.
H&#233;las, il n'existe aucune fonction pour retrouve une variable. De toutes fa&#231;ons, &#231;a n'aurait pas vraiment de sens dans le cas d'un langage compil&#233;.
Tu peux toujours r&#233;gler le probl&#232;me de la fa&#231;on suivante :
if 'TabloLigne'+IntToStr(i) = 'TabloLigne1' then
  Tablo := Tablo1
else
  Tablo := Tablo2;


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Pb avec FindComponent

3 réponses

Votre réponse

Discussions similaires