Discussion :

[steph_1]

Bonjour à tous,
j'utilise la commande 'Format' pour pouvoir afficher du code en hexa :

Code :

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

1
2
 
str := str + Format('%02x', [Buffer[i]]) + ' ';

Lorsque j'ai une valeur entre 0 et 9, au lieu de m'écrire '00'..'09', il m'écrit '0'..'9'.
Comment le forcer à mettre sur 2 chiffres ?
Merci

[ShaiLeTroll]

%x ne fonctionne pas ?

sinon, normalement, on doit lui passer un integer ... et non pas un char ... (Buffer chaine ou tableau de byte ?)

[Clorish]

Tu peux toujours ecrice ceci :

Code :

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

Format('%s', [IntToHex(Ord(Buffer[i], 2))

Autre chose : JE comprends pas pourquoi tu rajoute une chaine vide apres ?

[ShaiLeTroll]

il doit vouloir transformer dans une boucle '012345789' en '00 01 02 03 ...', un truc du genre

sinon

Code :

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

Format('%2.d', [Int]);

[Eric Boisvert]

En faite, Format remplis les digits non présent par un espace
et il te revois: ' 0'..' 9'

utilise plutôt IntToHex()

Code :

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

1
2
 
str := str +IntToHex(Buffer[i],2);

À l'inverse, si tu as besoin de reconvertir un chiffre en Hex vers un integer,
le plus simple c'est d'utiliser StrToInt de cette façon:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function HexToInt(HexNum: String): LongInt;
Begin
  Result := StrToInt('$' + HexNum);
End;
//== ou bien son ami... ==
Function HexToInt64(HexNum: String): int64;
Begin
  Result := StrToInt64('$' + HexNum);
End;

Bon Dev

[Clorish]

Sinon j'ai une petite fonction que je retranscrit de memoire ici :

Code :

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

1
2
3
4
5
6
7
8
 
Function IntToZeroStr(Value : Integer; Digits : Integer) : String;
Var i : Integer;
Begin
REsult := IntToStr(Value);
For i := Length(Result)+1 to Digits do
  REsult := '0'+REsult;
End;

[ShaiLeTroll]

Voici des variantes de IntToZeroStr de Clorish

Code :

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

1
2
3
4
function IntToZeroStr(Value : Integer; Digits : Integer) : String;
begin
  Result := Format(Format('%%.%dd', [Digits]), [Value]); 
end;

Code :

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

1
2
3
4
5
6
function IntToZeroStr(Value : Integer; Digits : Integer) : String;
begin
   Result := IntToStr(Value);
   if Length(Result) < Digits then
      Result := StringOfChar('0', Digits - Length(Result)) + Result;
end;

[Clorish]

Code :

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

1
2
3
4
function IntToZeroStr(Value : Integer; Digits : Integer) : String;
begin
  Result := Format(Format('%%.%dd', [Digits]), [Value]); 
end;

Y sont fout chez Borland ! Y sont fout !!

[sjrd]

Code :

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

1
2
3
4
function IntToZeroStr(Value : Integer; Digits : Integer) : String;
begin
  Result := Format(Format('%%.%dd', [Digits]), [Value]); 
end;

Oserais-je dire mieux :

Code :

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

1
2
3
4
function IntToStr0(Value, Digits: Integer): string;
begin
  Result := Format('%.*d', [Digits, Value]);
end;

[Cl@udius]

Salut

Je reprends la question initialement posée:

Bonjour à tous,
j'utilise la commande 'Format' pour pouvoir afficher du code en hexa :

Code :

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

1
2
 
str := str + Format('%02x', [Buffer[i]]) + ' ';

Lorsque j'ai une valeur entre 0 et 9, au lieu de m'écrire '00'..'09', il m'écrit '0'..'9'.
Comment le forcer à mettre sur 2 chiffres ?
Merci

Comme ceci:

Code :

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

1
2
 
  str := str + Format('%.2x', [Buffer[i]]) + ' ';

[edit]
Tu as également cette petite fonction:

Code :

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

1
2
3
4
5
6
7
8
 
function ByteToHex(Value: Byte): string;
const
  Digits: array[0..15] of char =
    ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
begin
  Result := Digits[(Value shr 4) and $0F] + Digits[Value and $0F];
end;

@+ Claudius

[Clorish]

Code :

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

1
2
3
4
5
6
7
8
 
function ByteToHex(Value: Byte): string;
const
  Digits: array[0..15] of char =
    ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
begin
  Result := Digits[(Value shr 4) and $0F] + Digits[Value and $0F];
end;

Ou "comment faire compliqué quand on peut faire simple"

Code :

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

IntToHex(AByte, 2)

marche tres bien

[Cl@udius]

Ou "comment faire compliqué quand on peut faire simple"

Ouiiin ! Clorish il est méchant avec moi Ouiin !

Code :

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

1
2
 
IntToHex(AByte, 2);

Mais bon tu as raison

@+