Discussion :

[marsupilami34]

Bonjour, je cherche la fonction inverse de InttoHex et je ne la trouve pas.
Par avance merci.

[MD Software]

IntToStr tout simplement.
Voici un exemple :

Code :

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

1
2
  ShowMessage(IntToHex(50,4));
  ShowMessage(IntToStr(StrToInt('$'+IntToHex(50,4))));

[marsupilami34]

J'aurai une autre question.
Mon problème est que j'ai un octet et que je dois le transformé en string.
J'ai essayé de pluseurs facons et je n'y arrive pas.

[MD Software]

J'aurai une autre question.
Mon problème est que j'ai un octet et que je dois le transformé en string.
J'ai essayé de pluseurs facons et je n'y arrive pas.

Un octet binaire ?

[marsupilami34]

par exemple l'octet 12

[marsupilami34]

Ce que j'essaie c'est :

Code :

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

1
2
 
s:=byte('12')

[edam]

lit sa bien svp

IntToStr tout simplement.
Voici un exemple :

Code :

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

1
2
  ShowMessage(IntToHex(50,4));
  ShowMessage(IntToStr(StrToInt('$'+IntToHex(50,4))));

[Clorish]

StrToInt('$'+IntToHex(50,4))

Ca marche
Ya des jours on on apprendres pleins de choses ... domage qu'il n'y ait pas des jours tous les jours

[MD Software]

Ca marche

et oui

[Mac LAK]

Ca marche

Je pensais que c'était un truc connu, pourtant : on l'utilisait déjà en Pascal...
Il peut y avoir des cas vicieux empêchant la conversion Hexa->Int (espaces superflus, notation "C" avec préfixe 0x, marqueur $ déjà présent, etc...), mais dans le cadre d'une fonction exactement inverse de IntToHex, ça marche dans 100% des cas.
Une fonction de conversion Hexa->Int marchant dans 100% des cas, quelle que soit la notation, est un peu plus complexe mais fonctionne sur le même principe : suppression des "scories", élimination des préfixes (0x et $), des suffixes (h), ajout d'un préfixe "$", puis appel à StrToInt.

Ya des jours on on apprendres pleins de choses ... domage qu'il n'y ait pas des jours tous les jours

Krän le Guerrier ?

[Clorish]

Bha moi qui m'embetais a decortiquer et analyser les caracteres 2 par 2 :/
Et on peut donc tout transformer ? (cad $FF, $FFFF, $FFFFFFFFFFFFFFx10e128 ?)

Krän le Guerrier ?

Nan Clorish le Barbare

[Mac LAK]

Et on peut donc tout transformer ? (cad $FF, $FFFF, $FFFFFFFFFFFFFFx10e128 ?)

Jusqu'aux limites du domaine des entiers Delphi, soit 64 bits, correspondant donc à 16 caractères hexa dans le meilleur des cas.

Donc, au lieu de découper 2 caractères par 2 caractères, tu vas pouvoir le faire 16 par 16 désormais pour tes nombres à 1024 bits...