Discussion :

[Duffer]

Bonjour

J'ai une question, je cherche à convertir un nombre decimal du genre (258,58) en valeur Hexa. Mais je bloque. J'y arrive avec Trunc mais par contre je perd tout ce qui se trouve derrière la virgule.

voilà le code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var
Resultat: string;
Result : single;
begin
 
  Resultat:= StringReplace(Edit2.Text, '.', ',',[rfReplaceAll, rfIgnoreCase]);
  showmessage (FormatFloat('0.00', StrToFloat(Resultat)));
 
  Result := StrToFloat(Resultat);
  showmessage (FloatToStr(result));
  ShowMessage(intToHex(trunc(Result), 8));
 
end;

Merci d'avance.

[ShaiLeTroll]

Un Nombre Décimal en Hexa !
C'est particulier, c'est faisable, mais le résultat sera difficile à comprendre parce que l'encodage d'un décimal (IEEE 754) c'est au bit près !

Juste la dernière ligne

Code :

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

1
2
3
4
5
6
7
8
9
 
  ShowMessage(FloatToStr(result));
  // ShowMessage(intToHex(trunc(Result), 8)); // Ne peux pas fonctionner !
 
// ResultHex déclaré en AnsiString;
  SetLength(ResultHex, SizeOf(Result) * 2);
  BinToHex(PAnsiChar(@Result), PAnsiChar(ResultHex), SizeOf(Result));
 
end;

utilise bien AnsiString et PAnsiChar, si tu utilises un 2009, XE... !

l'utilisation permet d'utiliser le même code pour single, double et extended !

[Duffer]

Un grand merci, cela fonctionne parfaitement