[v4 beta1] Bug avec les chaines à longueur fixe [Corrigé]

Archive.
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

[v4 beta1] Bug avec les chaines à longueur fixe [Corrigé]

Message par Flype »

Code : Tout sélectionner

Procedure.s Concat(a.s,b.s)
  ProcedureReturn (a+" "+b)
EndProcedure

a.s{8}
b.s{32}

a = "Pure"
b = "Basic"

Concat(a,b) ; invalid access memory
On ne peut pas passer en parametre à une procédure une chaine type a.{8}. C'est voulu ? En tout cas çà plante.

Code : Tout sélectionner

Procedure.s Concat(arg1.l,arg2.l)
  
  str1.s{8} = PeekS(arg1,8)
  
  Debug str1 ; invalid access memory
  
  str2.s{32} = PeekS(arg2,32)
  
  Debug str2 ; invalid access memory
  
  ProcedureReturn (str1+" "+str2)
  
EndProcedure

a.s{8} = "Pure"
b.s{32} = "Basic"

Concat(@a,@b)
Et ici, on a le droit d'écrire a.s{8} = "Pure", mais pas str1.s{8} = PeekS( arg1, 8 ). :roll:
Image