Discussion :

[wisetechacer]

Salut tout le monde ! j'ai un petit problème qui me bloque ; j'utilise XE5 , pourquoi j'ai ce message d'erreur en compilant le programme ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 s: string[255];
 c: array[0..255] of Byte absolute s;
 i: Integer;
begin
 s := Edit1.Text;
 for i := 1 to ord(s[0]) do c[i] := 10 xor c[i];
 Memo1.Text:=s;
 for i:=1 to Length(s) do s[i] := Char(10 xor ord(s[i]));
  Memo2.Text:=s;
end;

merci de répondre a ma question

[SergioMaster]

Bonjour,
Réponse rapide : parce que vous êtes confronté à de l'Unicode.

[tourlourou]

Bonjour,
Il est certain que mentionner l'endroit du code qui déclenche l'erreur est un plus...
s[i] := Char(10 xor ord(s[i])); // ici, peut-être ?
je pense que la chaîne s est une AnsiString (caractères sur un octet), mais que le type Char est en Unicode (caractères sur deux octets).

[wisetechacer]

Bonjour,
Il est certain que mentionner l'endroit du code qui déclenche l'erreur est un plus...
s[i] := Char(10 xor ord(s[i])); // ici, peut-être ?
je pense que la chaîne s est une AnsiString (caractères sur un octet), mais que le type Char est en Unicode (caractères sur deux octets).

Oui vous avez raison le message d'erreur indique cette ligne

for i:=1 to Length(s) do s[i] := Char(10 xor ord(s[i]));

mais je ne comprends pas ; tout semble correct comment faire alors?!

[ShaiLeTroll]

Code :

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

 s: string[255];

C'est ce que l'on appele une ShortString, c'est une Chaine Ansi
Différent du string sans longueur, le type naturel en Delphi, qui est une Chaine Unicode (depuis une dizaine d'année)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  s: string[255]; // avec longueur, type ShortString avec AnsiChar
  c: array[0..255] of Byte absolute s;
  i: Integer;
begin
  s := Edit1.Text; // Ici Problablement un warning de conversion implicite avec perte, cela doit être pris au sérieux et toujours faire en sorte que coder autrement
  for i := 1 to ord(s[0]) do
    c[i] := 10 xor c[i];
  Memo2.Lines.Add(s); // Add sera plus intéressant pour voir les résultats se cumuler
 
  for i:=1 to Length(s) do 
    s[i] := AnsiChar(10 xor ord(s[i])); // Faut juste utiliser le bon type, la réponse était dans le message d'erreur
  Memo2.Lines.Add(s);
end;

Attention, absolute c'est rigolo, disons que pour éviter quelques Cast as Class, cela peut rendre le code plus lisible
Pour l'accès mémoire de type complexe comme les tableaux, c'est une prise de risque notable

Eviter ShortString, string[...] ou AnsiString la plupart du temps, n'utilisez QUE string
Votre code sera adapté à l'utilisation de la VCL
Les autres types seront utile quand vous attaquerez des API plus pointues


Etudiez le code suivant qui joue avec la différence entre le AnsiChar 8Bits et le WideChar 16Bits

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
  s: string; // sans longueur, type UnicodeString avec WideChar synonyme de Char en DXE5
  i: Integer;
begin
  // La différence commencera à se voir si vous sortez du Latin1 classique comme Œ ou œ qui appartiennent à la seconde page Unicode
  s := Edit1.Text + '"Œ" ou "œ"';
  for i := 1 to Length(S) do
    s[i] := Char(10 xor Ord(s[i])); // Cette fois c'est Ord et Char, Ord ne renvoi pas un Byte comme le dit la Doc mais bien un Word, registe ASM 16Bits utilisé CX pour un XOR CX
  Memo2.Lines.Add(s);
 
  for i:=1 to Length(s) do
    s[i] := Char(10 xor Ord(s[i]));
  Memo2.Lines.Add(s);
 
  s := Edit1.Text + '"Œ" ou "œ"';
  for i := 1 to Length(S) do
    s[i] := Char(10 xor Word(s[i])); // Cette fois c'est Word et Char, toujours en XOR CX opération ASM 16Bits
  Memo2.Lines.Add(s);
 
  for i:=1 to Length(s) do
    s[i] := Char(10 xor Word(s[i]));
  Memo2.Lines.Add(s);
 
  s := Edit1.Text + '"Œ" ou "œ"';
  for i := 1 to Length(S) do
    s[i] := Char(10 xor Byte(s[i])); // C'est un Byte explicite, le registre sera réduit à CL, donc un 8Bit XOR CL
  Memo2.Lines.Add(s);
 
  for i:=1 to Length(s) do
    s[i] := Char(10 xor Byte(s[i])); // Et ici on constate la perte du passage en Byte (AnsiChar) au lieu de manipuler un Char
  Memo2.Lines.Add(s);
end;

[ALWEBER]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
 s1 : AnsiSTring ;
 i: Integer;
begin
 s1 := Edit1.Text;
 for i := 1 to length (s1) do s1[i] := ansiChar(10 xor byte(s1[i]));
 Memo1.Text:=s1;
 ....
end;

[wisetechacer]

Merci ! vous êtes super gentil ! merci aussi a ALWEBER,tourlourou,SergioMaster

[Paul TOTH]

tant qu'à fait des choses crades

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TMain.Edit1Change(Sender: TObject);
{$POINTERMATH ON}
var
  s: string;
  w: PWord;
  i: Integer;
begin
  s := Edit1.Text;
  w := Pointer(s);
  Dec(w); // car 0 basé
  for i := 1 to Length(s) do
    w[i] := 10 xor w[i];
  Edit2.Text := s;
end;

mais attention, les string Unicode ne sont pas neutres...jusque Delphi 2009 le type String était un blob binaire dans lequel on pouvait faire ce qu'on voulait, mais depuis l'unicode, les caractères ont un sens, et notamment si on fait passer la chaîne transformée dans une chaîne Ansi (pour la stocker dans un fichier INI Ansi par exemple) puis qu'on la remet dans un String Unicode, il y a des chances qu'elle ne soit pas correctement décodée par la suite. Car il n'y a pas forcément une conversion sans perte de l'Unicode avec des caractères 16bits vers de l'Ansi...on a même un Warning à ce sujet