Conversion Shortstring en string

Bonjour,

J'ai un petit problème de conversion de chaine de caractère.
J'ai une chaine de caractère qui est contenue dans un shortString qui contient des caractères non imprimables et j'aimerai les récupérer dans un string.

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Var S : ShortString; St : String; a1,a2,b1,b2 : integer; Begin S := #151#0; a1 := ord(S[1]); // = 151 a2 := ord(S[2]); // = 0 // conversion St := S; b1 := ord(St[1]); // = 8212 !!!!!!! b2 := ord(St[2]); // = 0 end;

---

Dans cet exemple, en executant en pas à pas, on observe dans la fenetre watch que b1 = 8212 au lieu de 151

En revanche si je passe par "char" comme ceci, ça marche:

Code:

---

St := char(S[1])+char(S[2])

---

Mais je cherche quelque chose de plus simple plutot que de faire une boucle pour chaque caractère.

Tu ne peux tout simplement pas sortir du Windows 1252 (ou le charset Ansi de ton Windows pour les applications Ansi) donc tout caractère qui n'existe pas dans le Win1252 mais présent dans l'unicode ne pourra pas être converti
Par contre de Ansi vers Unicode, tu n'as aucune perte mais un recodage complet de la chaine comme ton exemple le montre et c'est tout à fait normal.

le caractère 1252 au 151 soit Hexa 0x97 est le — sauf qu'en unicode 0x2014 (8212)
C'est documenté https://fr.wikipedia.org/wiki/Tiret

Citation:

---

Le tiret long ou « tiret cadratin » (« — » Unicode U+2014 HTML — — — digicode A-0151; TeX ---) a plusieurs fonctions.

---

C'est tout à fait normal
ShortString -> String c'est ANSI -> Unicode avec changement des valeurs selon la page correspondante.
String -> ShortString c'est Unicode -> ANSI avec perte de données

Code:

---

1 2 3 4 5 6 7 8 9 10

Var S : ShortString; St : String; Begin S[0] := #1 ; // longueur de la chaine. Pas de zéro à la fin S[1] := #151; St := String(S);   ShowMessage(st) ;

---

Bonne soirée

Pour compléter mon propos : Une ShortString et une chaine d'octets que tu définis à la conception.
Exemple : je réserve 12 Octets

Code:

---

String[12]

---

. En réalité ce tableau d'octets est composé de 13 octets et débute à l'adresse 0
Le premier octet définit la longeur utitlisée dens la partie disponible. Comme la longueur utilisée est définie sur un octet, cette longueur ne peut excéder 255.

Code:

---

String[255]

---

et

Code:

---

Shortstring

---

sont équivalents.
Contrairement aux autre types de chaines, il n'y a pas de 0 à la fin
Je peux t'envoyer le source de l'exemple ci après

Pièce jointe 646814