Passage de variable(s) d'une fiche à une autre (Delphi 7)
Résolu/Fermé
A voir également:
- Passage de variable(s) d'une fiche à une autre (Delphi 7)
- Telecharger delphi 7 - Télécharger - Langages
- Passer de windows 7 à windows 10 - Guide
- Fiche de pointage - Télécharger - Tableur
- Clé windows 7 - Guide
- Passage qwerty azerty - Guide
3 réponses
[Dal]
Messages postés
6174
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
2 février 2024
1 083
11 sept. 2013 à 11:00
11 sept. 2013 à 11:00
Salut Magicien13005,
Disons que ta variable se trouve dans unit1.
Dans ta unit1, tu as un objet TForm qui décrit ta "fiche". Pour pouvoir accéder à une variable déclarée dans un objet depuis l'extérieur, tu la mets dans la partie "public".
Puis :
Cela fonctionne ainsi, du moins avec Lazarus et Free Pascal Compiler, et cela devrait marcher de la même manière avec Delphi.
Dal
Disons que ta variable se trouve dans unit1.
Dans ta unit1, tu as un objet TForm qui décrit ta "fiche". Pour pouvoir accéder à une variable déclarée dans un objet depuis l'extérieur, tu la mets dans la partie "public".
interfaceEnsuite, dans la Unit où tu veux accéder à cette variable, tu mets "unit1" dans les "uses".
(...)
type
TForm2 = class(TForm)
ScrollBar: TScrollBar;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
TestSt: String;
{ public declarations }
end;
var
Form2: TForm2;
implementation
(...)
procedure TForm2.FormCreate(Sender: TObject);
begin
TestSt := 'test';
end;
(...)
Puis :
ShowMessage('Form2.TestSt is: ' + Form2.TestSt);
Devrait afficher le contenu de la variable.
Cela fonctionne ainsi, du moins avec Lazarus et Free Pascal Compiler, et cela devrait marcher de la même manière avec Delphi.
Dal
Bonjour Dal,
Ta méthode ne semble pas fonctionner. En fait, je cherche à "porter" sous Windows un petit jeu que j'avais écrit il y a bien longtemps en Turbo-Pascal. Évidemment, le problème des variables globales ne se posait pas de la même façon ;-) . Je vais essayer de reprendre l'algorithme à zéro de façon à avoir une seule fiche.
Merci de ton aide.
Ta méthode ne semble pas fonctionner. En fait, je cherche à "porter" sous Windows un petit jeu que j'avais écrit il y a bien longtemps en Turbo-Pascal. Évidemment, le problème des variables globales ne se posait pas de la même façon ;-) . Je vais essayer de reprendre l'algorithme à zéro de façon à avoir une seule fiche.
Merci de ton aide.
[Dal]
Messages postés
6174
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
2 février 2024
1 083
Modifié par [Dal] le 11/09/2013 à 17:31
Modifié par [Dal] le 11/09/2013 à 17:31
Comme présenté dans mon exemple, ce n'est pas une variable globale.
C'est une variable contenue dans la partie "public" d'un objet de type TForm, lui même instancié dans la partie var de l'interface de ton unité (et initialisé dans la partie implémentation).
On utilise la possibilité offerte par le Pascal Objet d'exposer une partie d'un objet afin d'en permettre l'utilisation par d'autres éléments du programme.
Une autre façon de faire est de créer une fonction dans la partie publique de ton objet, qui renvoie le contenu de la variable (qui peut rester protégée dans la partie privée de l'objet), et une autre fonction pour la modifier. Ainsi, ton objet maîtrise la lecture et, surtout, la modification de cette variable pour s'assurer qu'elle est utilisée de façon cohérente. Elle sera inaccessible directement, afin de la protéger, mais accessible indirectement par les fonctions prévues à cet effet.
Dal
C'est une variable contenue dans la partie "public" d'un objet de type TForm, lui même instancié dans la partie var de l'interface de ton unité (et initialisé dans la partie implémentation).
On utilise la possibilité offerte par le Pascal Objet d'exposer une partie d'un objet afin d'en permettre l'utilisation par d'autres éléments du programme.
Une autre façon de faire est de créer une fonction dans la partie publique de ton objet, qui renvoie le contenu de la variable (qui peut rester protégée dans la partie privée de l'objet), et une autre fonction pour la modifier. Ainsi, ton objet maîtrise la lecture et, surtout, la modification de cette variable pour s'assurer qu'elle est utilisée de façon cohérente. Elle sera inaccessible directement, afin de la protéger, mais accessible indirectement par les fonctions prévues à cet effet.
Dal
Bonjour,
Mea culpa, il s'agissait d'une erreur de programmation de ma part. Comme je l'ai dit, je voulais porter sous Windows un jeu écrit en Turbo Pascal. J'ai dû "saucissonner" le source en trois unités et rajouter un peu de code pour lier le tout, et... j'ai déclaré deux fois la même variable, dans Unit1 et Unit2. De retour dans Unit1, le compilateur, apparemment, prenait en compte la variable déclarée dans Unit1 et qui n'était donc pas initialisée, d'où un plantage du programme. Je vieillis mal... ;-)
Merci de tes conseils, je promets de faire plus attention la prochaine fois...
Mea culpa, il s'agissait d'une erreur de programmation de ma part. Comme je l'ai dit, je voulais porter sous Windows un jeu écrit en Turbo Pascal. J'ai dû "saucissonner" le source en trois unités et rajouter un peu de code pour lier le tout, et... j'ai déclaré deux fois la même variable, dans Unit1 et Unit2. De retour dans Unit1, le compilateur, apparemment, prenait en compte la variable déclarée dans Unit1 et qui n'était donc pas initialisée, d'où un plantage du programme. Je vieillis mal... ;-)
Merci de tes conseils, je promets de faire plus attention la prochaine fois...
