String to Array of byte - Ajout sans raison de valeur

**phoenixgreg** · 11/10/2016, 11h34

JourBon les gens,

Toute petite petite question lorsque je fais cela :

Code :

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

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

**guillemouze** · 11/10/2016, 12h25

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 :

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

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);

**Papy214** · 11/10/2016, 12h38

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

**phoenixgreg** · 11/10/2016, 13h49

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 !