Discussion :

[Ren97]

Salut,

J'aimerai savoir si possible, d'utiliser plusieurs fois le meme composant ds une app, ou alors faut-il rajouter a chaque fois le composant?

ex: je veux utiliser le composant tcp d'indy 10 sur plusieurs connections simultanées, faut-il que je l'ajoute autant de fois que je veux de connections ? meme si je ne connais pas le nb de connections a l'avance ?

merci

[Lung]

faut-il que je l'ajoute autant de fois que je veux de connections ? meme si je ne connais pas le nb de connections a l'avance ?

Pourquoi ne pas le créer dynamiquement autant de fois que nécessaire ?

[Ren97]

Pourquoi ne pas le créer dynamiquement autant de fois que nécessaire ?

T'as un exemple STP ?
Merci

[bubulemaster]

Exemple :

dans ta feuille principal (soit en variable globale soit en attribut).

Code :

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

1
2
TableauDeQuelqueChose : array of TQuelqueChose
NbQuelqueChose : Integer ;

ensuite dans une focntion de création :

Code :

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

1
2
3
4
5
6
7
8
9
10
var MonQuelqueChose : TQuelqueChose ;
begin
    MonQuelqueChose := TQuelqueChose.Create() ;
 
    Inc(NbQuelqueChose) ;
 
    SetLength(TableauDeQuelqueChose, NbQuelqueChose) ;
 
    TableauDeQuelqueChose[NbQuelqueChose - 1] := MonQuelqueChose ;
end ;

Dans une fonction de destruction :

Code :

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

1
2
3
4
5
6
7
8
 
begin
    TableauDeQuelqueChose[NbQuelqueChose - 1].Free ;
 
    Dec(NbQuelqueChose) ;
 
    SetLength(TableauDeQuelqueChose, NbQuelqueChose) ;
end ;

Espérant être clair

[Lung]

Mieux qu'un tableau, la TObjectList.

[Ren97]

Exemple :

dans ta feuille principal (soit en variable globale soit en attribut).

Code :

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

1
2
TableauDeQuelqueChose : array of TQuelqueChose
NbQuelqueChose : Integer ;

ensuite dans une focntion de création :

Code :

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

1
2
3
4
5
6
7
8
9
10
var MonQuelqueChose : TQuelqueChose ;
begin
    MonQuelqueChose := TQuelqueChose.Create() ;
 
    Inc(NbQuelqueChose) ;
 
    SetLength(TableauDeQuelqueChose, NbQuelqueChose) ;
 
    TableauDeQuelqueChose[NbQuelqueChose - 1] := MonQuelqueChose ;
end ;

Dans une fonction de destruction :

Code :

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

1
2
3
4
5
6
7
8
 
begin
    TableauDeQuelqueChose[NbQuelqueChose - 1].Free ;
 
    Dec(NbQuelqueChose) ;
 
    SetLength(TableauDeQuelqueChose, NbQuelqueChose) ;
end ;

Espérant être clair

Je ne voudrais pas etre trop lourd, mais je ne vois pas comment utiliser ton code avec un composant du package Indy par exemple.

[Ren97]

Re,
je galère, personne a un exemple SVP avec un tableau ou la TObjectList.

Merci