Discussion :

[Ardely]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Myarray : array of integer;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ardely]

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] !

[ALWEBER]

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.

[Tardiff Jean-François]

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.

[domlagagne]

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

[Laurent Dardenne]

'' 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

[Art19]

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!

[anapurna]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sjrd]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Laurent Dardenne]

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 ?