Type de variable dans une structure

[lepiaf31]

Bonjour, je voudrais réaliser une structure où le type d'une variable dépend de la valeur d'une autre variable (de la meme structure):

Code : Tout sélectionner

Structure Struct
  Name.s
  Type.b
  Variable
EndStructure

Par exemple, si Type=1 alors le type de 'Variable' est long. Si Type=2 alors le type de 'Variable' est string.
Mais je ne sais pas du tout comment faire
merci a vous

[Backup]

Bonjour, je voudrais réaliser une structure où le type d'une variable dépend de la valeur d'une autre variable (de la meme structure):

Code : Tout sélectionner

Structure Struct
  Name.s
  Type.b
  Variable
EndStructure

Par exemple, si Type=1 alors le type de 'Variable' est long. Si Type=2 alors le type de 'Variable' est string.
Mais je ne sais pas du tout comment faire
merci a vous

je ferai comme ça :

Code : Tout sélectionner

 :)

Structure a
    type.b
    l.l 
    b.b
    s.s
EndStructure
a.a
CallDebugger

a\ type.b=1


If a\ type=1
   a\l=10
Debug a\l  ; a type long
ElseIf a\ type=2
    a\b=5
    Debug a\b ; a type octet
ElseIf a\ type=3
    a\s="coucou"
    Debug a\s ; a type chaine
EndIf

en clair j'utilise la structure comme un type personalisé (c'est fait pour ça !! )

dans mon exemple considere

"a\l" comme un "a.l"
"a\b" comme un "a.b"
"a\s" comme un "a.s"

Fred a choisi "" comme symbole alors que dans d'autre language il sagit
bien du "."

[Guimauve]

Pour être plus optimisé encore on fait comme suit :

Code : Tout sélectionner

Structure Struct
  
  Name.s
  Type.b
  
  StructureUnion 
    String.s
    Long.l
  EndStructureUnion
  
EndStructure

Faîtes un test avec SizeOf() vous allez voir pourquoi.

A+
Guimauve

[minirop]

et pourquoi pas utiliser le type VARIANT qui est fait expres pour çà ?

[Backup]

et pourquoi pas utiliser le type VARIANT qui est fait expres pour çà ?

ha bon ? montre moi un exemple en purebasic !!!

[minirop]

je l'ai jamais utiliser mais tu peux aller voir sa structure dans l'explorateur (ALT+S)

[Flype]

variant est certes fait pour mais bon il est plutot fait pour s'interfacer avec certaines fonctions windows... c'est particulier quand même. StructureUnion semble plus adapté ici.

[Anonyme]

ou bien avec des pointeurs on peut s'en sortir :

Code : Tout sélectionner

Structure Struct
  Type.b
  *Pointeur.l
EndStructure



Procedure CreateVar(*Var.Struct)
  With *var
      Select \type
        Case 0 : \Pointeur = AllocateMemory(#Long)
        Case 1 : \Pointeur = AllocateMemory(#Float)
        Case 2 : \Pointeur = AllocateMemory(#Quad)
        ;etc...
      EndSelect
  EndWith
  ProcedureReturn *Var\Pointeur
EndProcedure 


a.Struct
a\Type = 1


Res = CreateVar(a)
PokeF(Res,10.5)
Float.f = PeekF(Res)

Debug Float

[lionel_om]

Code : Tout sélectionner

Structure Struct
  Type.b
  *Pointeur.l
EndStructure



Procedure CreateVar(*Var.Struct)
  With *var
      Select \type
        Case 0 : \Pointeur = AllocateMemory(SizeOf(#Long))
        Case 1 : \Pointeur = AllocateMemory(SizeOf(#Float))
        Case 2 : \Pointeur = AllocateMemory(SizeOf(#Quad))
        ;etc...
      EndSelect
  EndWith
  ProcedureReturn *Var\Pointeur
EndProcedure 

a.Struct
a\Type = 1

Res = CreateVar(a)
PokeF(Res,10.5)
Float.f = PeekF(Res)

Debug Float

Ce n'est pas "AllocateMemory(#Long)", mais AllocateMemory(SizeOf(#Long))"

Lio

[minirop]

StructureUnion semble plus adapté ici.

VARIANT utilise StructureUnion

[Anonyme]

Structure Struct
Type.b
*Pointeur.l
EndStructure



Procedure CreateVar(*Var.Struct)
With *var
Select \type
Case 0 : \Pointeur = AllocateMemory(SizeOf(#Long))
Case 1 : \Pointeur = AllocateMemory(SizeOf(#Float))
Case 2 : \Pointeur = AllocateMemory(SizeOf(#Quad))
;etc...
EndSelect
EndWith
ProcedureReturn *Var\Pointeur
EndProcedure

a.Struct
a\Type = 1

Res = CreateVar(a)
PokeF(Res,10.5)
Float.f = PeekF(Res)

Debug Float


Ce n'est pas "AllocateMemory(#Long)", mais AllocateMemory(SizeOf(#Long))"

Lio

Ce n'est pas "AllocateMemory(SizeOf(#Long))", mais AllocateMemory(SizeOf(Long))"

Btr

[Flype]

@Cpl.Bator, @lionel_om


il faut penser aussi à libérer la memoire pour chaque var créé.


@minirop
oui c'est vrai. mais variant est un type windows qui comporte des dizaines de types 'windowzien' pas forcement utile. pour un usage perso, je fais ma propre structure. par contre, lors d'accès à des fonctions windows qui ont besoin d'un variant, ok. ceci dit, si quelqu'un qui cherche tout les types possibles et imaginables, suffit de faire Ctrl+S sur 'VARIANT' dans l'IDE, ya tout ce qui faut.