passage par variable et composant

Version imprimable

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:

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:

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:

Citation:

[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

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

Code:

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;

22/02/2006, 16h00
Caine

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

Je pense que ça doit être suffisant.

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

Code:

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:

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]);

22/02/2006, 16h31
cfalcot

MD Software >

Code:

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!
22/02/2006, 16h39
MD Software

Citation:

Envoyé par cfalcot

MD Software >

Code:

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 :wink:
22/02/2006, 16h44
cfalcot

Ben en fait avec:

Code:

Components[j]:=serieTampon;

il me dis:

Citation:

Affectation impossible à une propriété en lecture seule

et du coup j'ai modifier... en pas bon non plus :wink:
22/02/2006, 16h47
MD Software

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