Discussion :

[SergioMaster]

Bonjour,

je dois louper quelque chose, je tente sans succès depuis ce matin de mettre une custom Format comme dans la

impossible de concaténer deux champs
pour reprendre l'exemple de la vidéo
si je mets CustomFormat:="Hello "+%s j'ai bien "Hello <valeur de mon champ>"
mais, quelque soit la formule montrée , minute 2 de la vidéo, rien à faire j’obtiens un '0' à la place de la valeur du deuxième champ ( CONTACT_LAST dans l'exemple)

Comme la vidéo est ancienne est-ce un whats new que j'ai raté ? ou

[Ph. B.]

Bonjour Serge,

mais, quelque soit la formule montrée , minute 2 de la vidéo, rien à faire j’obtiens un '0' à la place de la valeur du deuxième champ ( CONTACT_LAST dans l'exemple)

Comme la vidéo est ancienne est-ce un whats new que j'ai raté ? ou

Je viens de suivre la vidéo et réaliser ce qui était proposé avec D10 Seattle cela va de soi.
J'ai juste testé avec Firedac et une base Oracle plutot que DbExpress et Interbase, et tout fonctionne comme présenté.

[SergioMaster]

Bonjour,

Merci Philippe d'avoir fait le test, j'étais et je reste certain que cela vient de moi, mais je ne vois pas où je déconne (l'âge sans doute )
et pourtant j'ai voulu refaire le test dans une application vide.
Juste avec Firedac+Firebird : un FDConnection,un FDQuery, 3 TLabels : champ1,champ2 et champ1+champ2 et enfin un Navigateur
et même chose ! Bon enfin tout ça c'était hier avant de tout lancer par la fenêtre j'ai préféré faire une grande pause !
Ce matin je suis prêt pour un nouveau round pour mettre le doigt sur mon erreur de, (j'allais écrire programmation mais ce n'est pas vraiment ça,) d'utilisation de livebindings

Serge

[SergioMaster]

Je suis remonté sur le ring, tel Rocky Balboa et je suis sonné !
j'ai repris un nouveau programme fait les manips telles que décrites (ouverture de l'éditeur de lien, utilisation du wizard, modification du customformat) et là ça fonctionne
la seule différence entre cette démarche et ma démarche est que je clique sur le composant, clique sur lier visuellement (étrangement le wizard ne propose pas le composant TLabel ) et mets mon lien directement. Dans le programme test, cela fonctionne dans mon programme (plus étoffé donc) pas moyen
à priori j'ai un problème avec le Owner , retour au coin avant un nouveau round

[SergioMaster]

Excédé, je passe par une autre approche, déclaration de champs calculés et liaison sur ces derniers
impossible de trouver où ça coince avec les livebindings pour cette application , j'ai finalement opté pour quelques lignes de codes

la question subsidiaire serait :
Calculer ce nouveau champ à la source (c'est à dire dans l'expression SQL)
ou
Ajouter des champs fkCalculated Faire un évènement OnCalcField sur le DataSource
ou
il y a aussi dans Firedac un type de champ fkInternalCalc, mais je n'ai pas encore trouvé le truc pour utilisation

[SergioMaster]

Bonjour,

Aujourd'hui je suis remonté sur le ring.
j'ai supprimé toutes mes liaisons, ajouter une nouvelle table totalement identique sans déclaration de champs ni calculs
j'ai commencé par ajouter un navigateur
lié mes champs miracle cela fonctionne !
j'ai supprimé le navigateur dont je n'avais pas besoin et c'est toujours fonctionnel. Je ne vais pas investiguer sur l'ajout nécessaire ou non de ce dernier, en fait je pense plutôt que le coupable de ce m.....r c'est moi bien sur lorsque j'ai déclaré les champs avant de faire les liaisons

4 jours dessus pour ça ! décidément j'ai du mal à me faire à FMX dés que je creuse

[SergioMaster]

Bonjour,

j'ai repris ma massue pour comprendre ce phénomène

Chaque fois que je faisais mes liens via le concepteur visuel et que je déclarais par la suite mes champs (via l'éditeur de champs par exemple) les expressions CustomFormat comme :

%s+' '+owner.UNCHAMP.text;
%s+' '+owner.FieldByName('UNCHAMP').text;
%s+' '+self.owner.UNCHAMP.text;

plantaient, au mieux avais-je un 0 de rajouté.

il m'est venu le besoin d'afficher une date, l'avez vous déjà testé, l'affichage en liaison rapide se fait sous la forme de vos FormatSettings, très bien, mais je voulais avoir la forme dd/mm/yy et non dd/mm/yyyy. Mes premières tentatives d'utilisation de la méthode des livebindings se sont révélés plus que désastreuses, je l'avoue, l'aide est pour le moins incompréhensible :
FormatDateTime(<code>format string, date)</code> : Works as System.SysUtils.FormatDateTime.
il m'a fallu beaucoup de tâtonnements pour enfin trouver la bonne "syntaxe", pas en ce qui concerne le format, mais pour passer la valeur (ce qui d'ailleurs pourrait encore faire l'objet d'une FAQ)
FormatDateTime('dd/mm/yy',owner.MONCHAMP.asDateTime) ou plus simplement FormatDateTime('dd/mm/yy',asDateTime) s'il s'agit du champ lié.

Ceci résolu, j'ai voulu en comprendre d'avantage, j'avais lu que la définition des champs et dans ce cas la propriété DisplayFormat du champ pouvait faire le travail sans passer donc par CustomFormat. Fort de cette "théorie" je procède, déclare mes champs, rempli la propriété DisplayFormat dd/mm/yy , utilise le concepteur visuel et m'attend donc à le voir affiché ainsi. Et .... pas du tout, j'obtiens toujours la date sur 4 chiffres !

Qu'est-ce qui coince ? vous avez déjà la piste (en caractères gras) le concepteur visuel (pratique) crée des liaisons rapides non modifiables.
non modifiables, c'est là que le bas blesse ! car l'expression pour la source du champ est text (et donc selon le FormatSettings et n'affiche au demeurant que la date pas le time si nécessaire).

Comment faire : Créer un lien "manuellement"
Double clic sur le BindingList de la Forme
Ajout d'un lien (bouton nouvelle liaison ou touche inser)
Choix du type de lien <- première surprise tous les liens DB sont indiqués comme (obsolete)
Choisir donc BindLink ou BindControlValue (là j'avoue ne pas connaitre la différence entre les deux, j'ai donc pris BindLink)
Ajouter un format (double clic sur le lien puis bouton 'ajouter une expression' ou touche inser)
Remplir dans l'inspecteur d'objet les propriétés : ControlComponent et SourceComponent
puis remplir expression de controle : Text
et expression de la source : DisplayText

Ouf! Fini !

Fort de cette expérience ainsi que de mes tâtonnements sur la méthode Format des LiveBindings (pour bien mettre les points sur les i, pas la fonction Format de System.SysUtils) je peux maintenant faire des CustomFormat ou des Livebindings un peu plus "évolués"

A ceux qui ont eu le courage de me lire jusqu'au bout, la question : Mes galères dignes d'une FAQ ou d'un Tutoriel ou des deux ?

[SergioMaster]

Bonjour,

Je n'arrivais toujours pas à faire ce fameux customformat dès que je déclarais les champs de mon dataset.
Je me suis penché sur le fameux owner des expressions

%s+' '+owner.UNCHAMP.text;
%s+' '+owner.FieldByName('UNCHAMP').text;
%s+' '+self.owner.UNCHAMP.text;

qui est-il ? si quelqu'un le sait j'en serais fort aise

toujours est-il que ce owner que je ne connaissais ni d'Eve ni d'Adam me posait soucis il m'est donc venu à l'idée d'utiliser d'autres propriétés du lien
par exemple Datasource , sans succès puis j'ai utilisé la propriété du DataSource : DataSet et là

donc je propose plutôt ces expressions de customformat

Code :

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

1
2
3
4
 
%s+' '+DataSet.UNCHAMP.text
%s+' '+DataSet.FieldByName('UNCHAMP').text;
%s+' '+Self.DataSet.UNCHAMP.text

Qui, elles, ont l'air de fonctionner à coup sûr !
Si quelques lecteurs avaient l'amabilité de faire le test et de confirmer , voici mes étapes
il faut : (réalisé avec XE10, XE4)
1-un TLabel
2-un Requête avec à minima 2 champs String
3-une liaison (livebinding) visuelle ou non entre le champ1 et le Label
la propriété customformat étant égale à %s+' '+owner.CHAMP2.text

1°test : Pas de déclaration de champs du dataset OK les deux valeurs s'affichent
2°test : déclaration des champs , la première valeur s'affiche suivie d'un 0 (enfin dans la plupart du temps) donc ça ne fonctionne pas
3°test : remplacer 'owner' de la propriété customformat par 'dataset' et l'on obtient à nouveau le résultat attendu

[SergioMaster]

J'ai tendance à oublier que VCL supporte aussi les livebindings aussi ai-je fait un test encore plus rapide avec les mêmes constatations

J'ai oublié de préciser qu'il n'est nul besoin de compiler le programme test, toutes les manips ont été faites directement dans l'EDI

[Ph. B.]

Bonjour,

Je me suis penché sur le fameux owner des expressions
qui est-il ? si quelqu'un le sait j'en serais fort aise

Dans le cas présent, par empirisme, je peux dire que Owner = DataSet.
Comment j'ai procédé ? En renseignant la propriété CustomFormat comme suit : Owner=Dataset
Ce qui évidemment déclenche une erreur, mais une erreur dont l'intitulé est on en peut plus clair :

EvalError dans LinkPropertyToFieldText : Ne sait pas comment comparer "(TFDQuery @ 2E2F3450)" et "(TFDQuery @ 2E2F3450)".

Owner et Dataset ne sont qu'un seul et même composant !

donc je propose plutôt ces expressions de customformat

Code :

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

1
2
3
%s+' '+DataSet.UNCHAMP.text
%s+' '+DataSet.FieldByName('UNCHAMP').text;
%s+' '+Self.DataSet.UNCHAMP.text

Qui, elles, ont l'air de fonctionner à coup sûr !

Via le même empirisme, je peux dire (toujours pour le cas présent, ce n'est nullement une généralité) que Owner = Dataset = Self.Dataset et que Self est le champ initialement "bindé", c.a.d. champ1.

Si quelques lecteurs avaient l'amabilité de faire le test et de confirmer , voici mes étapes
il faut : (réalisé avec XE10, XE4)
1-un TLabel
2-un Requête avec à minima 2 champs String
3-une liaison (livebinding) visuelle ou non entre le champ1 et le Label
la propriété customformat étant égale à %s+' '+owner.CHAMP2.text

1°test : Pas de déclaration de champs du dataset OK les deux valeurs s'affichent
2°test : déclaration des champs , la première valeur s'affiche suivie d'un 0 (enfin dans la plupart du temps) donc ça ne fonctionne pas
3°test : remplacer 'owner' de la propriété customformat par 'dataset' et l'on obtient à nouveau le résultat attendu

Avec XE10 Upd 0 :

1°test : Oui
2°test : Je comprends pas la formulation "déclaration des champs"...
3°test : Oui, cf. mes constats empiriques.

[SergioMaster]

Bonjour,

eh bien non Self n'est pas/ne semble pas égal à Dataset cela aurait été trop simple sans cela je n'aurais pas eu de soucis avec la phase suivante

pour le test 2 , déclarer les champs, il s'agit simplement de faire clic droit sur le FDQuery puis dans l'éditeur de champ ajouter tous les champs, ce qui permet de changer au besoin la propriété DisplayFormat d'un champ. C'est ce test qui fait tomber le Owner=dataset , Owner semble plutôt être égal à la forme aussi étrange que cela puisse être (à mon avis une histoire de RTTI)

Merci de t'y être penché pendant les fêtes que je te souhaite heureuses (avec modération quand même )

[Ph. B.]

eh bien non Self n'est pas/ne semble pas égal à Dataset cela aurait été trop simple sans cela je n'aurais pas eu de soucis avec la phase suivante

Euh, trop d'excès lors du dernier réveillon ?
J'ai dit que :

Via le même empirisme, je peux dire (toujours pour le cas présent, ce n'est nullement une généralité) que Owner = Dataset = Self.Dataset et que Self est le champ initialement "bindé", c.a.d. champ1.

pour le test 2 , déclarer les champs, il s'agit simplement de faire clic droit sur le FDQuery puis dans l'éditeur de champ ajouter tous les champs, ce qui permet de changer au besoin la propriété DisplayFormat d'un champ. C'est ce test qui fait tomber le Owner=dataset , Owner semble plutôt être égal à la forme aussi étrange que cela puisse être (à mon avis une histoire de RTTI)

Une fois les champs créés, Owner n'est effectivement plus égal à Dataset mais à la fiche détenant le composant.
cf. le message d'erreur pour CustomFormat='Owner=Dataset' :

EvalError dans LinkPropertyToFieldText : Ne sait pas comment comparer "(TForm1 @ 17160110)" et "(TFDQuery @ 1C9D9F80)".

Dans ce cas, on peut écrire : %s + ' ' + Owner.FDQuery1Champ1.Text ou %s + ' ' + Dataset.Champ1.Text.
La 2° forme devant être construite, je le pense aussi, par RTTI...

Merci de t'y être penché pendant les fêtes que je te souhaite heureuses (avec modération quand même )

Pareillement...