Acces multiple pour une variable

Bonjour à tous,

je dispose d'un unité1.pas dans laquelle une liste d'objets est crée. Je souhaite y accéder dans une unité2.pas pour refaire un traitement dessus..

Pensez-vous que cela soit possible en Delphi?

Dans mon unité2.pas j'ai bien inclus unité1.pas mais cela ne semble pas fonctionner

Merci

Si ta variable est déclarée dans la partie interface, c'est possible.

En fait cette variable est le resultat d'une fonction et la déclaration de cette fonction (prototype) est bien dans la partie interface.

tu peut utilisé des variables globales.

Citation:

---

Envoyé par titou31000

En fait cette variable est le resultat d'une fonction et la déclaration de cette fonction (prototype) est bien dans la partie interface.

---

clarifions les choses si tu veux bien avec un exemple bidon

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

unit unit1;   interface   uses classes;   function GetList:TStringList;   implementation   function GetList:TStringList; begin Result := TStringList.Create; end;   end.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

unit main;   interface   uses unit1;   implementation   var list: TStringList; initialization list := GetList; end.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

unit unit2;   interface   uses unit1;   procedure chose;   implementation   procedure chose; begin // comment accéder à la liste retournée par GetList ?! end;   end.

---

dans l'état actuel du code, c'est impossible, il faudrait que unit2 utilise main et que main publie List, soit en le plaçant dans l'interface, soit en ajoutant une fonction qui retourne List.

autre approche, placer la var List dans unit1

dernière approche, GetList() peut renvoyer toujours la même liste

Code:

---

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

unit unit1;   interface   uses classes;   function GetList:TStringList;   implementation   var List: TStringList = nil;   function GetList:TStringList; begin if List = nil then List := TStringList.Crreate; Result := List; end;   end.

---

là c'est fonction de ton besoin

Bonjour,

merci pour vos réponses déjà!!

J'ai pas très bien compris ton exemple donc je le reprends ce matin!!

En fait, j'ai plusieurs fonctions qui font a peu près la meme chose et qui renvoit chacune une liste, est-ce que cela complique mon cas??

Citation:

---

Envoyé par titou31000

En fait, j'ai plusieurs fonctions qui font a peu près la meme chose et qui renvoit chacune une liste, est-ce que cela complique mon cas??

---

cela multiplie simplement le nombre de variables globales et/ou fonctions :)

Oui voila mais le soucis c'est que en fonction de certains paramètre j'appelle telle ou telle fonction mais au final je ne veux traiter qu'une liste, la liste en sortie de la fonction appelée...

Citation:

---

Envoyé par titou31000

Oui voila mais le soucis c'est que en fonction de certains paramètre j'appelle telle ou telle fonction mais au final je ne veux traiter qu'une liste, la liste en sortie de la fonction appelée...

---

tu devrais peut-être revoir les choses

déclarer 1 liste globale initialisée et vide

et n fonctions de remplissage

donc au lieu d'avoir

Code:

---

1 2 3

fucntion getList1: TList; function getList2: TList;

---

tu aurais

Code:

---

1 2 3

procedure FillList1(List: TList); procedure FillList2(List: TList);

---

voir même des procédures sans paramètres si elles tapent directement dans la List globale.

Moué moué moué :) je vais réfléchir!!