Discussion :

[ovni76]

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

" 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 :

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

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.

[tourlourou]

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

[Ph. B.]

Bonjour,

Voici le message de défaut

Code :

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

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 :

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

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 :

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

DecimalSeparator := '.';

[Dr.Who]

une tite fonction :

Code :

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

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;

[ovni76]

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 :

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

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+

[tintinux]

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 '/'.

[ovni76]

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