Comparaison string:

[jerexgrz]

Voila, j'ai une petite erreur aléatoire (à relancer plusieurs fois):

Code : Tout sélectionner

quan.l

Structure objet
  x.l
  y.l
  ident.s
  quantif.l
EndStructure

Dim projec.objet (5)

nbdalle.l
nbds.s

quan = 1
projec(quan)\quantif = 1
projec(quan)\ident = "ue"

nbds = "1"

Debug " " + Str(projec(quan)\Quantif) + projec(quan)\ident
Debug nbds
Debug "====="

valeur.s
valeur = " " + Str(projec(quan)\Quantif) + projec(quan)\ident

If " " + Str(projec(quan)\Quantif) + projec(quan)\ident <> " " + nbds + "ue" Or " " + Str(projec(quan)\Quantif) + projec(quan)\ident <> " " + nbds + "sc"
;If valeur <> " " + nbds + "ue" or valeur <> " " + nbds + "sc"
   Debug "=== ok ==="
EndIf

a.l = a + 10
b.l = b + 5

Debug a
Debug b
Debug valeur
;Debug quan

J'ai testé le code sur la derniere version 4.60 RC : apparement il y a un probleme "memoire" et les debug a, b, valeur ne s'affiche pas. Par contre, si je remplace le "or" par "and", il n'y a plus d'erreurs dans la ligne " " +str(projec(quan)\quantif) ....

[brossden]

Bonjour
Je pense que ta ligne de code 28 est trop compliquée pour le compilateur
Si tu remplaces :

Code : Tout sélectionner

If " " + Str(projec(quan)\Quantif) + projec(quan)\ident <> " " + nbds + "ue" Or " " + Str(projec(quan)\Quantif) + projec(quan)\ident <> " " + nbds + "sc"
  Debug "=== ok ==="
EndIf

par :

Code : Tout sélectionner

Verif1.b =  " " + Str(projec(quan)\quantif) + projec(quan)\ident<> " " + nbds + "sc" 
Verif2.b =  " " + Str(projec(quan)\quantif) + projec(quan)\ident <> " " + nbds + "ue"

If Verif1 Or Verif2
  Debug "=== ok ==="
EndIf

Il ne semble pas y avoir de problème !