[Flash Pascal] Procédure avec paramètre var

[Archimède]

Voilà, si j'ai une procedure :

Code :

1
2
3
4
5
6
7
8
9
 
procedure maprocedure( var mon_parametre: TMachin);
begin
 .......
 ........
 .......
 
 mon_parametre:=une valeur; 
end;

je ne peux pas le faire en flashpascal...

C'est un oubli ou tu ne peux pas ?

je me suis débrouillé en faisant une fonction mais je voulais poser la question...

[Paul TOTH]

joli !

alors c'est un peu des deux...il n'y a dans FlashPascal que ce que j'ai codé car j'en ai eu besoin, donc il manque des choses pourtant évidentes. mais dans le cas présent ce n'est pas si évident que cela à faire en Flash.

je crois qu'en gros je devrais faire quelque chose comme ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
program Project2;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
type
  TVarMovie = class
    m : MovieClip;
  end;
 
procedure createmovie1(var m:MovieClip);
begin
  m := MovieClip.Create(_root, '', 1);
end;
 
procedure createmovie2(p: TVarMovie);
begin
  p.m := MovieClip.Create(_root, '', 1);
end;
 
var
  p: TVarMovie;
  m: MovieClip;
begin
  createmovie1(m); // ça ne fonctionne pas !
  m.lineStyle(1,clBlue);
  m.lineTo(100,100);
 
  p := TVarMovie.Create; // utilisation d'une classe temporaire
  createmovie2(p);
  m := p.m; // pour récupérer le paramètre modifié
 
  m.lineStyle(1,clRed);
  m.moveTo(100,0);
  m.lineTo(0,100);
end.

c'est à dire que je dois dynamiquement créer un objet que je passe en paramètre pour récupérer un membre modifié...faisable...

[Archimède]

Merci, quand je vois des trucs, je le dis...
Mais tu as toujours la solution dans la poche
en effet bien vu pour ton raisonnement

merci

[Paul TOTH]

Envoyé par Archimède

Merci, quand je vois des trucs, je le dis...
Mais tu as toujours la solution dans la poche
en effet bien vu pour ton raisonnement

merci

bon je pensais résoudre ça relativement facilement mais non...

Code :

1
2
3
4
 
begin
  a := function_avec_var(a, b) + function_avec_var(c, d)  + d;
end;

ça devient un poil compliqué là

ou alors faut partir dans des fonctions anonymes genre

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
begin
  a := function()
       var
         p: TVarParam;
       begin
         p.a := a;
         p.b := b;
         t := function_avec_var(p, p);
         a := p.a;
         b := p.b;
         return t
       end
       +
       function()
       var
         p: TVarParam;
       begin
         p.c := c;
         p.d := d;
         t := function_avec_var(p, p);
         c := p.c;
         d := p.d;
         return t
       end
       +
       d
end;

c'est sans doute le seul moyen en fait

[Archimède]

En effet, ça devient un poil compliqué ...
Le jeu en vaut-il la chandelle ?
On ne fait pas ça tous les jours et puis une bonne vieille fonction de remplacement fait l'affaire...
Merci pour ta tentative de correctif.