Incompatible types : 'char' and 'string'

Fermé
rayenneyassine - 17 févr. 2019 à 16:02
 Utilisateur anonyme - 17 févr. 2019 à 17:33
Program code;
Uses WinCrt;
Var
x:String;
z:Char;
r:Integer;
Begin
WriteLn('donner un mot'); Readln(x);
z:=Copy(x,((Length(x)) Div 2), 1);
r:= Ord(z);
WriteLn (r);
End.

j'ai essayée mais le programme ne fonctionne pas et affiche :
incompatible types : 'char' and 'string'

1 réponse

Utilisateur anonyme
17 févr. 2019 à 17:33
Bonjour
La fonction Copy donne une 'string'.
Toi tu essayes de mettre le résultat dans un char quand tu fais
 z:= Copy(...
: ce n'est pas possible, les deux types sont incompatibles. Même si ta 'string' fait un seul caractère.
Pour extraire un char unique d'une string x, il faut utiliser la notation x[1], x[2]...
0