Discussion :

[LandGreen]

j'ai le code qui permet de générer l'exception Exception class EConvertError with message ''' is not a valid floating point value'.

Code :

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

1
2
3
4
5
6
 
function CustomStrToFloat(string : variant): double;
begin
  if (string = null) or (Trim(string) = '') then Result := 0
  else Result := StrToFloat(string);
end;

on compilant j'ai le message d'erreur suivant :

Code :

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

[Error] UMAJ_Prod.pas(134): Identifier expected but 'STRING' found

[SergioMaster]

Bonjour,

c'est quelque part normal puisque : string est un mot réservé et "redéclaré" comme variant

déjà quelque chose comme :

Code :

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

1
2
3
4
5
function CustomStrToFloat(astring : String): double;   // ou astring : variant
begin
  if astring.isEmpty then Result := 0
  else if not trystrtofloat(astring,Result) then result:=0;  
end;

mais si le code se résume à ça je me demande vous êtes fâché avec les fonctions déjà existante comme StrToFloatDef qui fera exactement la même chose ?

StrToFloatDef('200.00',0); -> 0 formatsettings d'un windows en français
StrToFloatDef('200,00',0); -> 200 formatsettings d'un windows en français

StrToFloatDef('200.00',0,aFormatSettings.Create(EN_US)); -> 200

[LandGreen]

Code :

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

1
2
3
4
5
6
 
 
StrToFloatDef('200.00',0); // -> 0  formatsettings d'un windows en français
StrToFloatDef('200,00',0); // -> 200 // formatsettings d'un windows en français
 
StrToFloatDef('200.00',0,aFormatSettings.Create(EN_US)); // -> 200

je pense que ça marche pas avec la version 7 du Delphi

Code :

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

F_DM.T_ProdMarge.Value:=StrToFloatDef((DBEDIT8.Text),0); ?

erreur :

[Error] UMAJ_Prod.pas(455): Incompatible types: 'Integer' and 'Extended'

[SergioMaster]

Déjà, il fallait savoir que c'était D7 ! mais peu importe StrFloatDef existait

ensuite

Code :

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

F_DM.T_ProdMarge.Value:=StrToFloatDef((DBEDIT8.Text),0); ?

Qu'est-ce que vous voulez faire avec ça !
DBEdit8 est bien un Edit en relation avec un champ de table : donc utilisez la champ de la table plutôt que le text
prenez aussi l'habitude d'utiliser des as<type> plutôt que value



enfin, quel est le type du champ de marge ? à priori un entier si j'en crois le message.

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
procedure TForm23.Button2Click(Sender: TObject);
function myconverter(astring : variant) : Double;
begin
 if VarIsNull(aString) then result:=10.15
 else if (not TryStrToFloat(astring,result)) then result:=0
end;
 
begin
Memo1.Lines.Add(format('StrToFloatDef(''200.00'',0) -> %3.2f',[StrToFloatDef('200.00',0)])); // -> 0  formatsettings d'un windows en français
Memo1.Lines.Add(format('StrToFloatDef(''200,00'',0) -> %3.2f',[StrToFloatDef('200,00',0)])); // -> 200 // formatsettings d'un windows en français
Memo1.Lines.Add(format('StrToFloatDef(''200.00'',0,Formattsettings) -> %3.2f',[StrToFloatDef('200.00',0,TFormatSettings.Create('EN-US'))])); // -> 200
 
Memo1.Lines.Add(format('myconverter(''200.00'',0) -> %3.2f',[myconverter('200.00')]));  // 0
Memo1.Lines.Add(format('myconverter(''200,00'',0) -> %3.2f',[myconverter('200,00')]));
Memo1.Lines.Add(format('myconverter('''',0) -> %3.2f',[myconverter('')]));
Memo1.Lines.Add(format('myconverter(null,0) -> %3.2f',[myconverter(null)])); // donne valeur par defaut definie dans la fonction
end;

[LandGreen]

enfin, quel est le type du champ de marge ? à priori un entier si j'en crois le message.

oui INTEGER

pour les date comment on peut reformuler la fonction?

PS : j'ai utilisé ces fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//   FLOAT
function NVLINT( astring : variant): double;   // ou astring : variant
begin
  if astring.isEmpty then Result := 0
  else if not trystrtofloat(astring,Result) then result:=0;
end;
 
//   INT
function NVLFLOAT( astring : variant): integer;   // ou astring : variant
 begin
  if (astring = null) or (Trim(astring) = '') Or (astring = '')  then Result := 0
  else Result := StrToInt(astring);
end;

[SergioMaster]

oui INTEGER

donc il aurait fallu faire quelque chose comme :

Code :

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

F_DM.T_ProdMarge.Value:=Trunc(CustomStrToInt(DBEDIT8.Text)); // dépend de comment vous voulez arrondir

MAIS, Vous vous embêtez inutilement !

Code :

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

1
2
3
4
F_DM.T_ProdMarge.asInteger:=DBEdit8.Field.asInteger;
// ou 
//F_DM.T_ProdMarge.asInteger:=Trunc(DBEdit8.Field.asFloat);
// ou Ceil ou Floor ou Round selon arrondi souhaité

je me demande bien ce qui vous pousse à ce besoin !

[LandGreen]

Bonjour,

c'est quelque part normal puisque : string est un mot reservé et "redéclaré" comme variant

même en utilisant les fonctions, ça génère le même code erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// pour Float
function CustomStrToFloat( astring : variant): double;   // ou astring : variant
begin
  if astring.isEmpty then Result := 0
  else if not trystrtofloat(astring,Result) then result:=0;
end;
 
//   pour int 
function CustomStrToInt( astring : variant): integer;   // ou astring : variant
begin
  if astring.isEmpty then Result := 0
  else if not trystrtoInt(astring,Result) then result:=0;
end;

F_DM.T_ProdMarge.Value:=CustomStrToInt(DBEDIT8.Text); donne une erreur Exception class EConvertError with message ''' is not a valid floating point value'.