utilisation de in ['A'..'Z','a'..'z'] dans delphiRésolu

Question

Je vais poser la question autrement :

// cDonne est d&#233;clar&#233;e :
var cDonnee : string;
// cCar est d&#233;clar&#233;e :
var cCar : char;
//A un moment, cDonnee contient la cha&#238;ne 'DISK 1'

// Dans le code j'ai 
cCar := copy(cDonnee, 6, 1);

 if cCar IN ['1'..'9'] then showmessage('ok');
//  cette derni&#232;re ligne me donne l'erreur suivante
[Erreur] UnitImport.pas(121): Types incompatibles : 'Char' et 'String'

QUELLE PEUT ETRE LA SOLUTION ?
Merci par avance
Jean-Louis / jean.louis.paul@wanadoo.fr

cs_neko · Accepted Answer

Ce n'est pas la derniere ligne qui te donne l'erreur a mon avis, mais pl&#244;t cCar := copy(cDonnee, 6, 1);

essais de la remplacer par cCar:=cDonnee[6];


bouh

jlen100 · Answer

salut,

remplace cCar := copy(cDonnee, 6, 1); par cCar := cDonnee[6]; et ton
probleme szra resolu. Mais il me semble que FLORENTH t'avais deja donne
la solution.

une seule restriction length( cDonnee) doit etre superieur a 6 sinon tu auras une erreur d'execution.

FLORENTH si tu regarde ce post  cCar := copy(cDonnee, 6,
1);provoque une erreur de compilation Types incompatibles : 'Char' et
'String'



bonne prog;

MimiGMT · Answer

salut,

et si tu rempla&#231;ais var cCar : char par var cCar : string; d'autre part comme la signl&#233; jlen100, il faut que la longueur de ton text soit au minium &#233;gale &#224; 6

jlen100 · Answer

mimiGMT tu ne peux pas utiliser un string avec l'operatuer d'ensemble
IN puisqu'il n'admet que des scalaires or un type string n'est pas un
scalaire. Il faut donc faire un transtypage.

MimiGMT · Answer

Je d&#233;veloppe sous Delphi4 et il est tr&#232;s fr&#233;quent que j'utilise ceci 

If Qry.FieldByName('etat').AsString[1] in ['J', 'S', 'A'] then 
   begin
       -----
   end;

Cela fonctionne tr&#232;s bien, je ne comprends pas ce que je fais de pas bien.

MimiMgt

jlen100 · Answer

mimiGMT, dans le code que tu donnes &#231;a fonctionne car ...AsString[1] n'est pas une chaine mais un caractere  de la chaine  AsString tu as donc transtype ta chaine en scalaire. Par contre tu ne peux pas faire AsString in [...] CQFD.

MimiGMT · Answer

J'ai compris, merci.

jlen100 · Answer

pas de quoi

cs_Delphiprog · Answer

Un rapide coup d'oeil dans l'aide en ligne &#224; propos de la fonction Copy :

functionCopy(S;Index,Count:Integer):string;
functionCopy(S;Index,Count:Integer):array;

Aucune des deux d&#233;clarations ne renvoyant un type scalaire, il faut donc transtyper le r&#233;sultat en Char.
JLen100 a raison quand il dit qu'il vaut mieux que la chaine ait au moins 6 caract&#232;res :
if Length(CDonnee) >=  6  then 
  cCar : = cDonnee[6]
else
  cCar :=  '0';
 if  cCar IN ['1'..'9'] then showmessage('ok');

<HR color =#008000>



Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

jlp_alexandre : MERCI DE NE PAS POSER PLUSIEURS FOIS LA M&#202;ME QUESTION DANS LE FORUM 
Au lieu de cela, lire les r&#233;ponses donn&#233;es par les membres et ...

<HR color=#008000>
Penser &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse convient.

utilisation de in ['A'..'Z','a'..'z'] dans delphi

10 réponses

Votre réponse

Discussions similaires