[DELPHI] Comment savoir si une variable est initialisée ?

Hello tout le monde !

Je me pose une question depuis un moment en Delphi : Comment savoir si une variable existe (enfin a été initialisée plutôt) ?

J'avais pensé à faire ça :

if Ptr(x) = nil then Form1.Caption := 'Variable vide'
else Form1.Caption := 'Variable initialisée';

mais je suis pas sûr que ça soit exacte (x est ici un Integer).

Je voudrais savoir si c'est correct ou s'il y a une fonction du genre VarExists(x) ?

Merci d'avance :)

à ma connaissance il n'existe rien de tel, c'est pour ça qu'il faut toujours initialiser tes variables :D
une solution (un peu lourde mon avis) serait d'utiliser des pointeurs pour tes types de variables. un petit exemple avec deux Boutons et un SpinEdit :

Code:

---

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

type TPInteger = ^Integer;   var PInt : TPInteger;   procedure TForm1.Button1Click(Sender: TObject); // insère une valeur dans la variable begin if PInt = nil then new(PInt); PInt^ := SpinEdit1.Value; end;   procedure TForm1.Button2Click(Sender: TObject); // recherche et affiche la valeur begin if PInt = nil then ShowMessage('nop') else ShowMessage('yup ; il vaut ' + IntToStr(PInt^)); end;

---

A partir du moment où une variable est déclarée de type entier alors elle existe... si elle n'existait pas alors ton compilateur ne compilerait pas. Par contre j'ai un doute sur le fait que delphi initialise les entiers (à 0)...

Bruno

Ok merci pour ces explications :)
En utilisant mon exemple avec Ptr(x) ça marche donc. Merci à vous 2 :P