Discussion :

[OR34a]

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 :

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

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.

[acaumes]

Bonjour,

Je suppose qu'il faut peut-être convertir en Variant la chaine Ansi renvoyée par ParValue. Est-ce bien le cas ?

NON. Surtout pas LAZREPORT utilise des variants...

Le message signifie simplement que FPC n'a pas mis la procédure inline (c’est à dire qu'il n'a pas mis le code de la procédure dans ton code mais qu'il fait un appel de procédure pour l'opérateur = Dans

Code :

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

ParName = 'SiglEcolN'

au lieu mettre le code permettant de tester l'égalité entre ParName et SiglEcolN directement dans ton code, il fait un appel de fonction (qui coûte un peu plus en raison de l'appel du prologue et de l'épilogue de cette fonction (qui a été notée Inline par le développeur)

Cordialement

[OR34a]

Bonjour,

Merci pour votre éclairage.
Cordialemnt
R.O.