Utilisation de la commande Format

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

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

%x ne fonctionne pas ?

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

Tu peux toujours ecrice ceci :

Code:

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

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

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

sinon

Code:

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

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

utilise plutôt IntToHex()
Code:

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:

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

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

Code:

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;

Voici des variantes de IntToZeroStr de Clorish

Code:

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

Code:

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;

Citation:
Envoyé par ShaiLeTroll
Code:

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 !! :D

Citation:

Envoyé par ShaiLeTroll

Code:

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

Oserais-je dire mieux :

Code:

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

Salut

Je reprends la question initialement posée:
Citation:
Envoyé par steph_1
Bonjour à tous,
j'utilise la commande 'Format' pour pouvoir afficher du code en hexa :
Code:

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:

1 2 str := str + Format('%.2x', [Buffer[i]]) + ' ';
[edit]
Tu as également cette petite fonction:
Code:

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

Citation:

Envoyé par Cl@udius

Code:

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:

IntToHex(AByte, 2)

marche tres bien :D

Citation:

Envoyé par Clorish

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

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

1 2 IntToHex(AByte, 2);
Mais bon tu as raison :king:

@+