Exporter les hint et caption

Version imprimable

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:

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

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

Code:

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;

08/12/2006, 14h47
banban54

export de Hint et Caption

:oops: 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
08/12/2006, 14h56
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+
08/12/2006, 15h10
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]' ??
09/12/2006, 14h26
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

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

Code:

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:

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:

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