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):
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
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);
Mais la c'est le drame:
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]));
Comment faire pour passer un truc comme ca à une procédure et qu'il soit au final modifier?[Pascal Erreur]Unit1.pas(354):E21197 Un objet ne peut être passé comme paramètre Var
merci
Partager