Discussion :

[SoyonsPositifs]

Je suis débutant et j’aurais aimé utiliser une variable déclarée publique dans Form1 "FICHIER_1.PAS" depuis "FICHIER_2.PAS" extérieur.
(DELPHI 10.1 Berlin)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
unit FICHIER_1;
. . .
interface
type
  TForm1 = class(TForm)
    . . .
  Private
    { Déclarations privées }
    private_integer : integer;
  public
    { Déclarations publiques }
    global_integer: integer;
  end;

Code :

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

1
2
3
unit FICHIER_2;
 
Form1.global_integer := 255;     // E2003 : Identificateur non déclaré : ‘Form1’

Comment déclarer 'global_integer' en tant que entier externe dans "FICHIER_2.PAS" ?

Merci par avance.

[Roland Chastain]

Bonjour !

Peut-être ajouter uses FICHIER_1; dans FICHIER_2.pas (si ce n'est déjà fait) ?

[sgmsg]

Je ne comprend pas ce que tu veux.

Si c'est pour partager le contenu d'une variable (adresse mémoire) par deux applications distinctes, je ne suis pas ton homme...

Si s'est pour sérialiser ton application, soit repartir ton application dans le même état que celui où elle s'est fermée:

tu peux par exemple utiliser tstringlist

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
...
var
    global_integer:integer;
procedure TForm1.FormCreate(Sender: TObject);
var 
    ContenueVariable:tstringlist;
    e:integer;
begin
    global_integer:=0;
    if fileexists('c:\global_integer.txt') then begin
        ContenueVariable:=tstringlist.create;
        ContenueVariable.LoadFromFile('c:\global_integer.txt');
        if ContenueVariable.count>0 then begin
            val(ContenueVariable[0],global_integer,e);
            if e>0 then Global_integer:=0;
        end;
        ContenueVariable.free;
    end;
end;

tu peux ensuite ajouter toutes les subtilités et finesses pour améliorer le tout.

[SoyonsPositifs]

Bonjour !

Peut-être ajouter uses FICHIER_1; dans FICHIER_2.pas (si ce n'est déjà fait) ?

Merci, c'est résolu.

J'ai rajouté 'FICHIER_1.pas' dans le mauvais 'uses' juste après 'interface'.
Ceci entraîne l'erreur :
"[dcc32 Erreur fatale]: FICHIER_1.pas: F2046 Mémoire insuffisante"

Il suffit de le mettre au bon endroit, dans 'uses' après 'implementation'.
Tout fonctionne à merveille.

[Papy214]

La discussion est résolue, ok !

Mais je ne peux m'empêcher de conseiller de mettre les variables, constantes, fonctions, etc. qui sont partagées dans une unité distinctes.
ça évitera les à terme les références circulaires