[Delphi 7] Savoir si une valeur est assignée à une variable

Bon c'est sans doute une question stupide, mais j'avoue que je bloque un peu.

Dans le principe, je créer des variables de type single que je ne peux pas initialiser. Avant de les utiliser (dans des comparaisons), je souhaite savoir si je leur ai déjà assigner une valeur, ou leur donner celles de la comparaison dans le cas contraire.

En simplifiant à l'extrême :

Code:

---

1 2 3 4

Si A existe alors Si B>A alors A = B; (FinSi) Sinon A = B;

---

Je pensais utiliser la fonction assigned et j'ai donc écris ceci :

Code:

---

if not assigned(@Xmin) then

---

Or je m'aperçois que dès la création, la valeur 0 est attribuée à mes variables.
Une solution ?

En delphi,

dès lors que tu déclares une variables non pointeur, elle est allouée, et donc la 'case mémoire' allouée contient une valeur... qui est ta valeur initiale.

Pour les types entiers, la valeur initiale est 0 théoriquement
pour les booléens, c'est false (0 en num...)
les chaines sont vides.

Par méfiances peut-être ou par habitude, j'initialise tout le temps mes variables...

Il n'y a pas de notion 'non-affecté', car la var. est déjà allouée.

Par contre pour un pointeur (ou Objet), le pointeur est effectivement alloué et s'il vaut 0, c'est à dire Nil, il ne pointe sur rien du tout, autrement dit, là, on peut dire qu'il n'est pas initialisé.

Donc dans ton cas, si tu veux absolument avoir un notion de 'non assigné', si la valeur 0 symbolise réellement une donnée et non une absence de données, il faut faire (mais c'est un peu lourd)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var PA: ^Integer; B : Integer; begin // Initiliser quelque part même si théoriquement c'est déjà le cas PA := nil; .....   // ensuite tu peux faire ton code comme ca if Assigned( PA ) then if B > PA^ then PA^ := B else else begin New( PA ); PA^ := B; end ...   // Pour dé-assigner A normalement il faut faire Dispose( PA ); // libération de la mém. PA := Nil; // sinon, la mém est désallouée, mais le contenu du pointeur reste le même // pour les objets, FreeAndNil( Object) fait les 2 ene même temps end;

---

Un peu lourd non ? sinon il faut trouver une autre méthode pour ton code.

Peut-être en utilisant les variants... à creuser également.

Bon courage !

Je craignais cette réponse :)

J'ai envisagé deux solutions pour contourner le problème, la première en initialisant ma variable à Pi, et la seconde en passant par une création de fichier (je créer déjà de nombreux fichiers). Finallement créer un pointeur n'est guère plus lourd que les methodes au dessus :)

Merci pour l'aide.