Discussion :

[banban54]

Je souhaite exporter le texte des Hint, caption et MsgDialog de mon appli vers un fichier texte (but : le réimporter modifié ou dans une autre langue).

De la Faq j’ai essayé d'adpater des codes relatifs ‘TypInfo’

Code :

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

1
2
3
4
5
6
7
 
      for i := 0 to FrTables.ControlCount -1 do begin 
        if IsPublishedProp(Controls[i], 'caption')
        and PropIsType(Controls[i], 'caption', tkString) then 
          writeln(Fichiertxt, Controls[i].name); // ça plante avant writeln!
        end;
      end;

et ça plante lamentablement avec le message ‘’indice de liste hors limite (5)’’

quelqu’un a t il une idée SVP

[rsc]

Ce n'est pas TrTables qui manque devant Controls ? Essaie

Code :

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

1
2
3
4
5
6
7
8
 
     with FrTables do
      for i := 0 to ControlCount -1 do begin 
        if IsPublishedProp(Controls[i], 'caption')
        and PropIsType(Controls[i], 'caption', tkString) then 
          writeln(Fichiertxt, Controls[i].name); // ça plante avant writeln!
        end;
      end;

[banban54]

merci pour le Whith oublié qui supprime l'erreur!

mais si le 'controls[i].Hint' me retourne bien un résultat, pour le 'Controls[i].Caption' le compilateur me retoune 'identificateur non déclaré'
dans un writeln(Fichiertxt, (Controls[i]).Caption) par exemple

Si quelqu'un sait ou se trouve le 'Caption' d'un control, ça m'aiderai bien
merci

[LoveBuzz]

Bonjour,

Tous les controls n'ont pas un caption, mais tu peux travailler dans un bloc d'erreur try finally end;, il te récupère le caption s'il existe.


A+

[banban54]

le gros problème c'est que je n'en ai aucun en retour, même pour les objets qui ont un caption dans l'inspecteur d'objet.

peut être que l'information ne se trouve pas au niveau du 'Controls[i]' ??

[Jipété]

Yop !

C'est pas une histoire style (Controls[i] as TQuelqueChose).Caption,
le TQuelqueChose du type qui a une propriété Caption (tous les contrôles ne l'ayant pas) ?
Mes 2 cts,
--
jp

[banban54]

merci jipété mais je perds mon latin (bien que les langues étrangères et moi...)

Code :

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

1
2
3
4
5
6
 
   for i := 0 to ComponentCount -1 do begin   
          texte := Components[i].name ;
 
        if Components[i]is TControl then begin
     texte :=  texte + ';' + TControl (Components[i]).Hint ;

avec Tcontrol: ça marche j’ai le nom et le Hint,

Code :

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

1
2
3
4
 
    if Components[i] is TLabel then begin
         texte :=  texte + ';' + TLabel(Components[i]).Caption ;
         texte :=  texte + ';' + TLabel(Components[i]).Hint ;

avec Is TLabel: je n’ai plus que le nom (alors que Hint et caption sont des propriétés correctes)

Code :

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

1
2
3
4
5
 
    if Components[i]is TLabel then 
          with Components[i]as TLabel do begin
             texte :=  texte + ';' + TLabel(Components[i]).Caption ;
             texte :=  texte + ';' + TLabel(Components[i]).Hint ;

je n’ai toujours plus que le nom!!