Bonjour,

Je fait un traitement repetitif sur des composant que je modifie (en locurence des TLineSeries dans lequels j'ellimine des valeurs). Je voudrais minimiser le code suivant (qui fonctionne):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
  roulementSeries(Series1);
  roulementSeries(Series2);
  roulementSeries(Series3);
  roulementSeries(Series4);
//[...]
  roulementSeries(Series18);
  roulementSeries(Series19);
  roulementSeries(Series20);
//ou roulementSeries est définit comme suit:
Procedure rouelementSeries(var series:TLineSeries);
Avec la FAQ et le forum "j'invente" ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
  //parmis tous les composants...
  for j := 0 to ComponentCount - 1 do
    //...si le composant j est une TLinesSeries...
    if Components[j] is TLineSeries then
      //...on appel la procedure roulementSeries
      roulementSeries(TLineSeries(Components[j]));
Mais la c'est le drame:
[Pascal Erreur]Unit1.pas(354):E21197 Un objet ne peut être passé comme paramètre Var
Comment faire pour passer un truc comme ca à une procédure et qu'il soit au final modifier?
merci