String to Array of byte - Ajout sans raison de valeur

JourBon les gens,

Toute petite petite question lorsque je fais cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

i_BinarySize: integer; s_value: string; aby_array: array of byte;   s_value := 'Manager 1';     i_BinarySize := (Length(s_value) + 1) * SizeOf(Char); SetLength(aby_array, i_BinarySize); Move(s_value[1], aby_array[0], i_BinarySize);

---

mon aby_array contient : [77,0,97,0,110,0,97,etc...], c'est bien mais j'ai des 0 qui viennent se rajouter entre mes valeurs. Bon je suppose que ça vient du fait que ce soit des Char et qu'il doit y avoir à la fin du caractère un #0 ou quelque chose comme ça mais je ne vois pas comment procéder :s

Merci pour vos réponses toujours très utiles !

Bonne journée

C'est que tu dois etre en unicode => 2 octets par caractère => si tu évalue sizeof(char) tu dois avoir 2.
Si tu veux 1 byte par caractère, utilise de l'ansi :

Code:

---

1 2 3 4 5 6 7 8 9 10

i_BinarySize: integer; s_value: Ansistring; aby_array: array of byte;   s_value := 'Manager 1';     i_BinarySize := (Length(s_value) + 1) * SizeOf(AnsiChar); SetLength(aby_array, i_BinarySize); Move(s_value[1], aby_array[0], i_BinarySize);

---

La fonction BytesOF n'est pas censée faire ça toute seule ??

Exactement guillemouze encore une fois merci, en effet, ayant l'habitude de travailler avec version de Delphi antérieure à 2009 (l'unicode n'existait pas) j'ai du coup oublié ce "détail'. Et oui donc en Ansi forcément ça passe mieux ;)
Papy214 je ne connait pas cette fonction, je vais me renseigner :)

Bonne semaine à vous !

ça fait partie de SysUtils. Mais je ne me souviens plus à partir de quelle version de Delphi.

System.SysUtils.BytesOf