[Linux] Défaut de conversion StrToFloat

Bonjour,
J'ai sur une application de gestion de tables sous Sqlite un problème étrange apparu après la mise à jour vers Lazarus 1.0.6 - mais il existe aussi sous la version 1.0.4. (retour en arrière suite au problème).
Je suis sous Linux, j'utilise la version x86-64 et le problème est lié à une seule application. J'ai fait l'essai en en créant une nouvelle avec la conversion en cause, mais voilà je n'en trouve pas la cause et je ne vois pas dans quelle direction chercher.
Voici le message de défaut

Citation:

---

" 1298,43" is an invalid float.

Press OK to ignore and risk data corruption.
Press Cancel to kill the program.

---

et ci-dessous la partie du programme créant le défaut :

Code:

---

1 2	MTOTAL_DISP:=data.divers.FieldByName('TOTAL_DISP').AsString; XTOTAL:=StrToFloat(MTOTAL_DISP);

---

Lecture dans une table d'une valeur numérique écrite sous une forme texte que je convertis en décimal flottant pour effectuer des calculs.
MTOTAL_DISP est déclaré comme String et XTOTAL comme Double.
Tout cela fonctionnait avant une recompilation et le même genre d'action fonctionne bien dans une autre application ; je pense qu'une déclaration est erronée ou qu'il manque une unité de service ou encore un paramètre de compilation ou autre chose, je ne sais pas. Alors un petit coup de main serait le bienvenu.
Précision encore : je ne suis pas un grand programmeur, juste un petit bidouilleur.
Merci d'avance.

Que vaut DecimalSeparator ?
XTOTAL:=StrToFloat( Trim(MTOTAL_DISP) ); plante-t-il ?

Bonjour,

Citation:

---

Envoyé par ovni76

Voici le message de défaut

Code:

---

1 2 3 4

" 1298,43" is an invalid float.   Press OK to ignore and risk data corruption. Press Cancel to kill the program.

---

et ci-dessous la partie du programme créant le défaut

Code:

---

1 2	MTOTAL_DISP:=data.divers.FieldByName('TOTAL_DISP').AsString; XTOTAL:=StrToFloat(MTOTAL_DISP);

---

---

N'est ce pas plutôt " 1298.43" qui est affiché ?

Que vaut la valeur DecimalSeparator ? AMHA, ce doit être ',' alors qu'auparavant c'était '.'...
Réessayez le programme en initialisant cette variable à '.' avant la conversion.

Code:

---

DecimalSeparator := '.';

---

une tite fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

function safeFloatString(aStr: string): string; var I: integer; begin result := aStr; if decimalSeparator <> ',' then I := pos(',', S) else if decimalSeparator <> '.' then I := pos('.', S); if I <> 0 then result[I] := decimalSeparator; end;

---

Merci à tous pour vos réponses,

Mmais mon problème est que cette application fonctionnait correctement avant la recompilation et que j'ai fait l'essai de cette conversion dans une application test et qu'elle fonctionne correctement.
Quand au séparateur de décimale en début d'application, je précise les contraintes suivantes :

Code:

---

1 2 3 4 5 6 7

procedure TFslcl.FormCreate(Sender: TObject); begin // préparation de l'environnement defaultFormatSettings.ShortDateFormat:='DD/MM/YYYY'; defaultFormatSettings.DateSeparator:='/'; defaultFormatSettings.DecimalSeparator:=','; end;

---

Vu que j'ai fait une sauvegarde ces jours ci je ferais une marche arrière sur mes écritures de programmation et je vous donnerai le résultat.
A+

Bonjour

Tu devrais vérifier ce qu'il y a dans DefaultFormatSettings juste avant de faire la conversion, et si c'est toujours ce que tu as défini dans le OnCreate.

Pour ma part, j'ai observé sous Linux uniquement des modifications non voulues et non systématiques de ces formats pendant l'exécution. Je suppose que c'est une unité utilisée qui change cela, en s'initialisant, mais je n'ai pas encore trouvé laquelle.

C'est sur le format de date en ce qui me concerne : dans un petit programme de test j'ai tout le temps ShortDateFormat = 'D/M/Y' et DateSeparator = '-', conforme aux définitions système, et dans d'autres plus complexes, après initialisation, cela devient respectivement 'DD/MM/YY' et '/'.

Me revoilà après de nombreux essais dont voici le détail :
Comme indiqué dans un message précédent, j'ai des sauvegardes donc j'ai sauvegarder le dossier de l'application dans sa version bloquante et j'ai remplacé le dossier par un du mois de septembre puis un autre du mois de décembre et à chaque fois j'ai demandé une recompilation puis une exécution.
Pour ces 2 versions avec la base sqlite de leur époque pas de problèmes.
Nouvel essai avec la dernière version et sa base de nouveau le problème.
J'ai donc comme proposé par tintinux ajouté des edit pour juste avant le défaut afficher la valeur des paramètres defaultformatsettings.xxx
Le résultat est correct j'ai bien mes valeurs déclarées dans l'unité principale, oui je précise : dans mes petites applications de gestion de données j'ai une fiche principale et depuis celle-ci j'appelle des fiches spécialisées avec retour en fin d'action sur la fiche principale.

Le résultat de mes essais semble indiquer un problème lié à la compilation mais là je suis dépassé.
J'ai comparer tout ce que je pouvais en comparant les indications des fiches projet, à part une unité ajoutée par moi dans la dernière pas de différences dans les paramètres en rouge.

Encore une indication : lors du défaut je choisi annuler et une fenêtre s'affiche avec un tas d'indications dont une ligne en gras :
SYSTUTILS_STRTOFLOATDEF$ANSISTRING$EXTENDED$$EXTENDED
Si cela vous parle ce n'est pas mon cas.
Alors Docteurs où chercher ?
Merci d'avance

Suite de mes essais pour trouver mon problème de StrToFloat.
J'ai créer un nouveau projet et j'ai recopier petit à petit mes unités de l'ancien et l'ensemble refonctionne. J'ai juste trouvé dans le listing du projet une ligne nouvelle

Code:

---

RequireDerivedFormResource := True;

---

dont je ne connais pas la signification ni l'utilité.
Encore une précision dans la dernière unité créée la dernière modification était d'utiliser lazreport et ses modules pour créer l'impression d'un document.
Ayant pour l'instant retrouvé l'usage normal de mon application je reverrais l'ajout de cette impression plus tard et si problème j'ouvrirais un nouveau post.
Merci A+