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