Discussion :

[marsupilami34]

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.

[MD Software]

Tu utilises StrToInt sur s qui est un réel. Il faut que tu utilises StrToFloat.

[marsupilami34]

Ca fait pareil.

[marsupilami34]

C'est bon j'ai trouvé.
Ca venait tout simplement du DécimalSéparator qui était mal défini.