[LazReport] Message sur l'évènement GetValue
Bonjour,
Dans la réalisation d'un rapport relatif à l'exploitation d'une base de données SQlite-3 créée et gérée par Lazarus 2.2.4 sous Windows10, on est amené à l'utiliser l'évènement OnGetValue du composant TfrRepport comme dans l'exemple ci-après :
Code:
1
2
3
4
5
6
| procedure TF_PromoA.frR_ListNGetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'SiglEcolN' Then ParValue := Ed_SiglEcol.Text ;
if ParName = 'NumPromoN' Then ParValue := F_PromoA.Ed_PromActiv.Text ;
end; |
L'action commandée par ce code se déroule sans problème mais lors de la compilation du code, un avertissement s'affiche en marge de la ligne de code :
note :Call to Subroutine "operator = cOnst. source AniSTring ) : Variant" marked as Inline is not inlined.
Cette note s'affiche chaque fois qu'il est fait appel à cet évènement.
Je suppose qu'il faut peut-être convertir en Variant la chaine Ansi renvoyée par ParValue. Est-ce bien le cas ?
Que signifie cet avertissement sachant que l'affichage du rapport se fait correctement par ShowReport Mais, lorsque l'on ferme la prévualisation du rapport et tente d'afficher un autre type de rapport un message "Database is locked s'affiche", mais ce message n'a peut-être rien à voir avec la note sur la ligne if parName = ....
Merci pour un éventuel éclairage sur le sujet.
R.O.
