Discussion :

[Laskar]

Bonjour,

Je m'arrache les cheveux en essayant de reprendre des bouts de code que j'ai écrit il y a quelques années.
J'ai, par exemple, ce truc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function Truc : String
var
  L: LongInt;
  MyStr:ShortString;
 
begin
[...]
        L := 65;
        MyStr[0] := Chr(L);
[...]
end;

Le compilateur bloque sur la ligne 9 en m'indiquant :
Types incompatibles : 'AnsiChar' et 'Char'

Ces 'AnsiChar' me procurent bien des soucis

Comment lever l'erreur ?

Merci (et pardon pour cette question triviale ...)

[Andnotor]

Tu es sous Delphi 2009+.
Remplace simplement Chr par AnsiChar.

[Laskar]

Remplace simplement Chr par AnsiChar.

Je développe avec Delphi 2010.
Merci pour ta réponse mais le transtypage AnsiChar(L) - même s'il ne provoque plus d'erreur - n'a rien à voir avec la fonction Chr(L). Par exemple, chr(9) est le caractère tabulation. Que donne MyStr[0] := AnsiChar(9) ??

[Andnotor]

Le but est justement de leurrer le compilateur
MyStr[0] n'est de toute façon pas un caractère, mais la longueur de la chaîne courte...

Dans ton exemple, ce n'est pas "A" que tu veux écrire non plus... ou alors tu fais faux !

[Rayek]

Pas plus simple d'écrire

Code :

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

1
2
 
MyStr[x] := #9;

x <> 0 bien sur

[Laskar]

Ok. Les choses sont plus claires pour moi (MyStr[0] = longueur de la chaine)
Merci