Discussion :

[cfalcot]

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

[MD Software]

Faut que tu passes par une variable tampon.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 //parmis tous les composants... 
  for j := 0 to ComponentCount - 1 do 
    //...si le composant j est une TLinesSeries... 
    if Components[j] is TLineSeries then 
      begin
        //...on appel la procedure roulementSeries 
        tampon := TLineSeries(Components[j]);
        roulementSeries(tampon);
        Components[j] := tampon;
      end;

[Caine]

Exactement comme pour les gestionnaires d'évènements: Tu ne mets pas 'var'.

Je pense que ça doit être suffisant.

[Rayek]

tu peux mettre en paramètre de ta procedure un TComponent

Code :

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

1
2
3
4
5
6
 
Procedure roulementSeries(Sender : TComponent);
begin
  if sender is TLinesSeries then
    TLineSeries(Sender). ......
end;

Normalement, après tu n'auras aucun problème pour appeler ta procédure

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(Components[j]);

[cfalcot]

MD Software >

Code :

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

TLineSeries(Components[j]) := tampon;

ne fonctionne pas car la partie de gauche n'est pas affectable dixite Delphi...

Caine>
Nikel! J'avais pas essayé: pour moi il fallait necessairement un passage par variable.

Merci!

[MD Software]

MD Software >

Code :

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

TLineSeries(Components[j]) := tampon;

ne fonctionne pas car la partie de gauche n'est pas affectable dixite

C'est pas ce que j'ai écrit

[cfalcot]

Ben en fait avec:

Code :

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

Components[j]:=serieTampon;

il me dis:

Affectation impossible à une propriété en lecture seule

et du coup j'ai modifier... en pas bon non plus

[MD Software]

Je savais pas qu'il protégait ses composants ainsi.
Bon à savoir !