Identifier expected but 'STRING' found

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:

---

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:

---

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

---

Bonjour,

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

déjà quelque chose comme :

Code:

---

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

Code:

---

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:

---

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

---

erreur :

Citation:

---

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

---

Citation:

---

Envoyé par SergioMaster

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:

---

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

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

ensuite

Code:

---

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:

---

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;

---

Citation:

---

Envoyé par SergioMaster

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:

---

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;

---

Citation:

---

oui INTEGER

---

donc il aurait fallu faire quelque chose comme :

Code:

---

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

---

MAIS, Vous vous embêtez inutilement !

Code:

---

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 !

Citation:

---

Envoyé par SergioMaster

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

---

c'est remplacer une valeur lorsque l'utilisateur omis de la renseigner !

Le SGBD, les valeurs par défaut et/ou des triggers sont normalement là pour ce genre de choses ! (Ah zut, oubliez les triggers vu que vous utilisez Access :aie:)
Vous pouvez aussi vous rabattre sur les événenements OnNewrecord, OnBeforePost