Discussion :

[titou31000]

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

[Linkin]

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

[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.

[oumlike]

tu peut utilisé des variables globales.

[Paul TOTH]

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 :

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
 
unit unit1;
 
interface
 
uses classes;
 
function GetList:TStringList;
 
implementation
 
function GetList:TStringList;
begin
  Result := TStringList.Create;
end;
 
end.

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
 
unit main;
 
interface
 
uses
 unit1;
 
implementation
 
var
  list: TStringList;
initialization
  list := GetList;
end.

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
 
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 :

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
 
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

[titou31000]

Bonjour,

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

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

[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??

[Paul TOTH]

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

[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...

[Paul TOTH]

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 :

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

1
2
3
 
fucntion getList1: TList;
function getList2: TList;

tu aurais

Code :

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

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.

[titou31000]

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