PureBasic

Structure test
x.l
y.l
EndStructure

NewList dd.test()

AddElement(dd())

With dd()
  \x = 1
  \y = 2

	If \x = 1		;ça marche pô
		Debug "yop"
	EndIf
	
EndWith

End

Avec un if le compilateur râle alors que ça marchait dans la beta 1

Même chose avec les interfaces :'(

Code : Tout sélectionner

Interface Object
  SetX(x.l)
  GetX.l()
EndInterface

Structure Object_Structure
  *Functions.Object
  x.l
EndStructure

Procedure SetX(*Self.Object_Structure, x.l)
  *Self\x = x
EndProcedure

Procedure.l GetX(*Self.Object_Structure)
  ProcedureReturn *Self\x
EndProcedure

Procedure NewObject()
  *new.Object_Structure = AllocateMemory(SizeOf(Object_Structure))
  *new\Functions = ?Functions
  ProcedureReturn *new
EndProcedure

pouet.Object = NewObject()

With pouet
  \SetX(10)
  Debug \GetX() ; <-- ça ne passe pas
  ;passe = \GetX() <-- mais ça oui
  ;Debug passe
EndWith

DataSection
  Functions:
    Data.l @SetX(), @GetX()
EndDataSection

Tout ca devrait marcher avec la beta 3.

PureBasic

[v4 beta 2] with/endwith et if [Corrigé]

[v4 beta 2] with/endwith et if [Corrigé]