Comment mettre aucune valeur dans Array of integer?

Bonsoir,
Je me suis fait un tableau INTEGER dynamique à une dimension de cette forme:

Code:

---

1 2	Myarray : array of integer;

---

Ma question est: Et-il possible de mette aucun valeur par example à l'emplacement 3

Code:

---

1 2 3 4 5

Myarray[1] := 1; Myarray[2] := 2; Myarray[3] := Ici je voudrais mettre aucune valeur ???? Myarray[4] := 4;

---

pour obtenir quelque chose comme cela [1,2,,4]

Merci beaucoup pour l'aide, salutations

SAlut
Je ne voudrais pas dire une betise mais lorsque tu cré une variable elle se "remplie" forcement avec des valeur quelquonque, donc tu as grand interet a y mettre des valeur, le mieux dans ton cas serait peut etre de mettre

Code:

---

1 2 3 4 5

Myarray[1] := 1; Myarray[2] := 2; Myarray[3] := -1; //ou une toute autre valeur que tu choisira Myarray[4] := 4;

---

Tout depend de ce que tu veux faire de ces valeurs, donne plus de detail.
A++
Qwaz

A vrai dire j'ai mis des 9999999, en espèrent de ne jamais atteindre ce chiffre!
J'ai aussi posté juste pour savoir si c'était aussi possible de mettre une valeur symbolisant rien...
un peu comment avec les array of string
example:
Myarray[3] := '';
avec un sting on obtient ceci ['1','2','','4']
donc j'ai pensé avec Integer on pouvait peut-être atteindre ceci [1,2,,4] !

Tu peux aussi créer un tableau à 2 colonnes. La deuxième booleenne spécifiant si la valeur à été utilisée ou non (NULL) . SI il n'y à pas trop de valeurs tu peux travailler avec des variants.

Bonjour,

vous avez un array of integer, et un integer est toujours rempli.

soit vous utiliser une valeur indiquant vide (-1, high(integer), low(integer) etc.)

soit vous n'utiliser pas des integer mais des variants. Les variants peuvent êtres mis a nul ou a une valeur entière donc null peut être la valeur vide.

Attention, vous devrez impérativement vérifier si la valeur est null ( isNull(maVariant) ) avant d'essayer de l'utiliser comme integer. Mettre un null dans un integer plante.

Bonjour,
Pour info:
Myarray[3] := '';
'' est un string , vide mais un string quand même.

Citation:

---

Envoyé par domlagagne

'' est un string , vide mais un string quand même.

---

Remarque pertinente, il y a surtout une occupation mémoire quasi null.
En gros il manque à Delphi Win32 le type nullable de .NET.

Quant aux variants c'est une trés bonne approche, qui auto-documente le code, mais elle se fera au détriment des performances.

Peut être travailler avec des types pointeur afin d'utiliser la valeur Nil, mais là ce sera au détriment de la maintenance et de la lisibilité du code.

L'ajout des types nullable, ça c'est une vrai demande à formuler auprès de Codegear ;)

si les valeurs de ton tableau sont toujours positives, alors tu peux mettre -1 dans la case que tu souhaite vide car les Integer ont des valeurs negatives contrairement aux Cardinal qui ne sont que positifs.
Ensuite quand tu parcours, pour savoir si la case est "vide" tu test si elle vaut -1 ou non!

salut

tu peut utilisé une astuce qu'il ne faut pas conseiller a la legere

plutot que de creer un array of integer
creer un array of Pointer

il te suffira donc pour inserer un entier de faire

Code:

---

1 2 3 4

Myarray[1] := Tobject(1); Myarray[2] := Tobject(2); Myarray[3] := nil; //ou une toute autre valeur que tu choisira Myarray[4] := Tobject(4);

---

et lors de l'acces a ta donnée faire un test

Code:

---

1 2 3 4 5

if assigned(Myarray[i]) then showmessage(format('ma valeur de %d est : %d ',[i,integer(Myarray[i])]) else showmessage(format('%d na pas de valeur ',[i])

---

attention ce n'est qu'une solution qui pour ma part ne me satisfait pas
il ne devrais jamais exiter de valeur null

@+ Phil

La seule vraie solution est bien le type nullifiable qu'indique Laurent. Et s'il n'existe pas en Win32, créons-le :

Code:

---

1 2 3 4 5

type TNullableInt = record IsNull : boolean; Value : integer; end;

---

Bien entendu, on l'accompagnera de quelques routines pour faciliter son traitement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function NullInt : TNullableInt; begin Result.IsNull := True; Result.Value := 0; end;   procedure SetNullableIntToValue(var NullableInt : TNullableInt; Value : integer); begin NullableInt.IsNull := False; NullableInt.Value := Value; end;

---

etc.

Citation:

---

Envoyé par anapurna

il ne devrais jamais exister de valeur null

---

ça c'est un vrai débat.

Pour la création d'un record comme le propose SJRD, et pour ceux utilisant BDS, il y a peut être possibilité de pousser la réflexion en utilisant qq évolutions des records sous Win32 ?