Discussion :

[Papy214]

Bonjour

J'ai un composant basé sur TEdit auquel j'ai ajouté différentes propriétés et méthodes.
Entre autres, une propriété Value de type Single à laquelle on peut assigner la valeur NaN.
Sous Delphi Tokyo, tout fonctionnait sans problème.
L'éditeur de propriété affiche NAN pour Value.



L'application se lance sans problème.



Si j'affiche le FMX, Value n'est pas renseigné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
  object EditNumeric1: TEditNumeric
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    TabOrder = 1
    FilterChar = '0123456789-.,'
    TextSettings.HorzAlign = Center
    Position.X = 40.000000000000000000
    Position.Y = 32.000000000000000000
    StyledSettings = [Family, Size, Style]
    VarValue = Null
    IsNull = True
    HighMaxLocked = False
    HighMinLocked = False
    Decimals = 0
    SpinEditVisible = False
    DisplayHint = False
  end

J'ouvre maintenant le projet avec RIO.
L'éditeur affiche toujours NAN



Je lance le projet :



---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet Project1.exe a déclenché la classe d'exception EReadError avec le message 'Erreur lors de la lecture de EditNumeric1.Value: Valeur de propriété incorrecte'.
---------------------------
Arrêter Continuer Aide
---------------------------

Si je regarde le FMX, je vois que RIO a enregistré NAN

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  object EditNumeric1: TEditNumeric
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    TabOrder = 1
    FilterChar = '0123456789-'
    TextSettings.HorzAlign = Center
    Position.X = 40.000000000000000000
    Position.Y = 32.000000000000000000
    StyledSettings = [Family, Size, Style]
    Value = NAN
    VarValue = Null
    IsNull = True

Et là ça me pose un problème parce que mon projet utilise ce composant à plein d'endroits.
Si dès que j'ouvre un TForm et que je l'enregistre, ça me fout le bazar, je ne vais pas pouvoir continuer ce projet avec RIO.

Le seul contournement que j'ai est de mettre la propriété à 0 en Design mais mais ça m'impose de repasser sur chaque oncreate pour réinitialiser à NaN quand c'est nécessaire.

Une idée de génie pour corriger ça ?

[Andnotor]

property Value :single read ... write ... stored FALSE ?

[Papy214]

Comme d'hab', je reste pantois.
Dans Kaamelott, Gauvain disait: "Venez le vois dehors, vous serez encore plus pantois" .

Tu m'as sorti d'une grosse galère.

Après, pour ma défense, c'est le second composant que j'ai fait dans ma vie. Je suis très nul dans ce domaine.

Merci beaucoup grand manitou

[Papy214]

J'ai quand même une question complémentaire au cas où tu aurais le fin mot de l'histoire.

Dans l'inspecteur d'objet, ma valeur de propriété est affublée du symbole "animation" et si je clique sur la valeur, Delphi me propose de créer un TFloatAnimation



Quel rapport avec le type Single de ma propriété ?

[Andnotor]

Ça c'est un truc purement FMX. Je ne peux pas te répondre, je n'ai encore jamais mis les mains dedans

[SergioMaster]

Même si moi aussi je commence à toucher a des composants jusqu'à présent je suis cantonné à des Strings ou des TFileName (il me pose quelques soucis celui-là)
Bref je n'ai jamais touché à une propriété numérique il doit y avoir encore une option non documentée (ou peu) c'est peut-être à cause du type
Le fait de nommer la propriété Value influe peut-être (perso j'aurais évité)

[pprem]

Bonjour

Si Value est un single, il ne devrait pas pouvoir avoir la valeur NAN ou NaN (en tout cas pas avant l'introduction des nullable types qui sera probablement pour la prochaine version majeure).

Si tu indiques "stored false" sur la déclaration de ta variable, quel est l'intérêt de l'afficher dans l'inspecteur de propriétés ? Tu peux te contenter de la mettre dans "PUBLIC" au lieu de "PUBLISHED".

Serais curieux de voir comment tu gères les non valeurs dans ton code source.

[Papy214]

Tout ce que je sais est que ça fonctionnait avec Tokyo et que le problème est apparu avec RIO.
Et la seule différence est le stockage automatique de NaN dans le FMX dès que j'ouvre mon TForm (ou TFrame dans le cas présent).

Mettre cette propriété en published n'a effectivement pas grand intérêt si je compare aux valeurs qui servent à borner la saisie.
Je pourrais effectivement changer la portée.

Quand au code, il prend en compte plein d'autres choses.
Selon la valeur saisie (ou modifiée par code), la couleur change, le hint est modifié, etc.

En fait, tout est parti d'un besoin qui consistait à avoir un composant de saisie numérique qui pouvait être vide et à ce moment là renvoyer NaN comme valeur (Value).

[Papy214]

J'oubliais :

Serais curieux de voir comment tu gères les non valeurs dans ton code source.

Tout simplement, si Text = '' alors Value = NaN
ça permet d'avoir les possiblités

valeur non renseignée
valeur à 0
valeur <> 0

Pour données à prendre en compte dans le logiciel c'est primordial.

[ShaiLeTroll]

Euh ... NaN fonctionne très bien pour un Single (testé en XE2 et exploité en D7 en 2007 mais j'ai préféré passé au Variant pour gérer l'absence de données différente d'un zéro)

Code :

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

1
2
3
4
5
6
var
  S: Single;
begin
  S := NaN;
  ShowMessage(Format('%f', [S]));
end;

[Papy214]

Le variant est aussi une solution mais avec plus de place mémoire pour chaque variable non ?

Et aujourd'hui, avec les helper, j'aime bien les

Code :

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

if EditKs.Value.IsNan then

[pprem]

Euh ... NaN fonctionne très bien pour un Single (testé en XE2 et exploité en D7 en 2007 mais j'ai préféré passé au Variant pour gérer l'absence de données différente d'un zéro)

ok, il faut que je révise alors, j'ai complètement zappé ça