Bonjour,
Je cherche à faire la conversion d'un entier en hexa avec la methode suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='94.50';
  s:=IntToHex(Round(strtoint(s)*100),4);
  showmessage(s);
end;
L'erreur est la suivate : 94.50 n'est pas une valeur en virgule flottante correcte.

Par avance merci pour votre aide.