Type TE1 = (e11=0,e12=1,e13=2,e14=3,e15=4); TE2 = (e21=5,e22=6,e23=7); ... if Ord(e23)<5 then Pos := Ord(e23) else Pos := Ord(e23)-5;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
199 internautes nous ont dit merci ce mois-ci
VAR ListEnum : TStringList; ... For ii := Ord(Low(TE1)) to Ord(High(TE1)) do ListEnum.Add(GetEnumName(TypeInfo(TE1),ii)); For ii := Ord(Low(TE2)) to Ord(High(TE2)) do ListEnum.Add(GetEnumName(TypeInfo(TE2),ii));
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
199 internautes nous ont dit merci ce mois-ci