Discussion :

[Squall78]

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

[denokan]

à ma connaissance il n'existe rien de tel, c'est pour ça qu'il faut toujours initialiser tes variables
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 :

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

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;

[Bruno@Chrysis]

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

[Squall78]

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