Construire le nom des composants présents dans la form

Version imprimable

Bonjour à toutes et tous,

Bon un petit problème que je n'ai pas pu résoudre :

j'ai 60 composants TStaticText en 5 lignes de 12 composants (tableau)
à chaque ligne correspond un objet
à chaque colonne correspond un mois.

donc
Code:

1 2 3 4 5 6 1 2 3 4 5 6 7 8 9 10 11 12 objet_alpha X X X X X X X X X X X X objet_beta X X X X X X X X X X X X objet_charlie X X X X X X X X X X X X objet_delta X X X X X X X X X X X X objet_etc.. X X X X X X X X X X X X
les 60 TStaticText se nomment donc
Code:

1 2 objet_alpha_1,objet_alpha_2,objet_alpha_3, etc ... objet_bravo_1,objet_bravo_2,objet_bravo_3, etc ...
Je souhaite pouvoir construire le nom du composant à partir des infos contenues dans la base de données :
ainsi dans le SGBD si sgbd.fieldbyname('objet_alpha').integer <> 0 alors je teste la date pour définir le mois et je construis le nom de mon composant

Code:

decodedate(sgbd.fieldbyname('date_don').asDateTime,annee,mois,jour);

et ensuite je bute je voudrais faire un truc un peu comme
Code:

1 2 3 var_nom_compo:='objet_alpha'+inttostr(mois); var_nom_compo.Caption :='X';
Mais bon j'y arrive pas suis pas assez doué en Pascal

Merci de vos réponses

29/01/2009, 16h52
weberick

Bon un embryon de réponse un copain très doué me propose cela :

Code:

TStaticText(FindComponent('objet_alpha_' + intToStr(mois))).Caption:= 'X';

Qu'en pensez vous ?

Pour ma part cela ne fonctionne pas encore j'ai un "violation_access" que je ne parviens pas à isoler ...

Eric
30/01/2009, 08h48
chris37

Eric,

Un petit effort stp... :oops:
"lazarus findcomponent" dans google et hop le tour est joué (6ème position !)

La réponse est ici
30/01/2009, 11h35
weberick

aie je m'attendais un jour à ce genre de réponse et c'est de ma faute ...

J'y cours.

Eric

Bonjour,

Bon voici le code incriminé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
     {Calcul des soldes et remplissage du tableau }
     With d_m.sql_lig_session Do Begin
       First;
       tot_temp1:=0;tot_temp2:=0;tot_temp3:=0;
       while not eof Do begin
         tot_temp1:=tot_temp1 + d_m.sql_lig_session.FieldByName('lig_mt_total').AsFloat;
         tot_temp2:=tot_temp2 + d_m.sql_lig_session.FieldByName('lig_mt_paye').AsFloat;
         tot_temp3:=tot_temp3 + d_m.sql_lig_session.FieldByName('lig_mt_du').AsFloat;
         { remplissage du tableau }
         DecodeDate(d_m.sql_lig_session.FieldByName('lig_date_session').AsDateTime,annee,mois,jour);
         if d_m.sql_lig_session.FieldByName('lig_colis_alim').AsInteger<>0
         Then TStaticText(FindComponent('st_tab_col_'+IntToStr(mois))).Caption:='X' ;
         Next;
       End;
     End;

Et à l'éxécution j'ai un Raised ExcecptionClass External SIGSEGV
et l'unité Control.inc s'ouvre et le focus se met sur cette ligne

Code:

if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
{------------------------------------------------------------------------------
  TControl GetText
------------------------------------------------------------------------------}
function TControl.GetText: TCaption;
var
  len: Integer;
begin
  // Check if GetTextBuf is overridden, otherwise
  // we can call RealGetText directly
  if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)
  then begin
    Result := RealGetText;
  end

Bref je suis perdu (encore)

Merci

Eric

31/01/2009, 18h06
weberick

bonsoir,

Je suis un peu perdu car le problème ne semble pas venir du code :

Code:

TStaticText(FindComponent('st_tab_col_'+IntToStr(mois))).Caption:='X' ;

mais je n'arrive pas à la localiser et en mode pas à pas ça bug sur cette ligne alors je tourne en rond.

A plus tard et si quelqu'un à une idée de génie ...
en attendant je vais faire 12 lignes de codes par ligne à afficher ....
31/01/2009, 19h39
chris37

Bonsoir Eric,

Je pense fortement que c'est ton FindComponent qui pète :oops:
Tu ne le test pas et donc l'appel doit foirer sur une variable non allouée...

Le mieux est de passer par un TComponent intermédiaire que tu test à null pour être sur qu'il existe bien :king:

@+
03/02/2009, 22h24
Clandestino

Dans le bout de code que tu nous montre, tu cherches à définir le texte d'un composant TstaticText que tu trouves grace à son nom.

Ton premier post semblait vouloir dire que tu allais créer tes composants TstaticText de manière dynamique.

As-tu écris cette partie de code et peux tu nous la montrer?

J'ai le sentiment que tu essaies de définir la propriété caption d'un composant qui n'existe pas!!
04/02/2009, 22h42
mtournay
yep quelque chose du style :
Code:

1 2 MonComposant := FindComponent('st_tab_col_'+IntToStr(mois)); if assigned(MonComposant) then TStaticText(MonComposant).Caption:='X' ;
question : un TStringGrid ne serait-il pas plus adapté ? auquel cas tu pourrais rajouter autant de ligne que tu veux
07/02/2009, 08h24
marcleb1

Citation:

Envoyé par mtournay

un TStringGrid ne serait-il pas plus adapté ?

Je suis du même avis depuis le début :mrgreen: