Discussion :

[weberick]

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 :

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

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 :

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

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 :

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

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

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

Code :

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

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

[weberick]

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

Code :

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

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

[chris37]

Eric,

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

La réponse est ici

[weberick]

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

J'y cours.


Eric

[weberick]

Bonjour,

Bon voici le code incriminé :

Code :

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

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 :

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

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

Code :

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

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

[weberick]

bonsoir,


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

Code :

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

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 ....