Discussion :

[franckcl]

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 :

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

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 :

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

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.

[ShaiLeTroll]

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

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

[ALWEBER]

Code :

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

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

[ALWEBER]

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 :

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

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 :

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

String[255]

et

Code :

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

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