Discussion :

[AlfredKr]

Bonjour,
Je n'ai jamais utilisé de pointeur de fonction et je pense que ceci pourrait être necessaire pour le programme que je développe.
J'ai une procedure a() qui appelle toujours (des milliers de fois) une fonction f().
Cette fonction peut être soit g() ou h() selon des critères décidés avant l'appel à a(). C'est-à-dire que je peux faire un if then else dans a() mais c'est peut-être plus long que d'avoir un pointeur p qui sera égal à g() ou h() qu'on appelera dans a().
1ere Question : Comment l'implémenter ?
2eme question: est-ce que le temps d'execution sera diminué avec l'utilisation du pointeur par rapport à if then else ?

Merci d'avance.

Fred

[sjrd]

1ere Question : Comment l'implémenter ?

Ca, ce serait plus facile de répondre si on avait les parties pertinentes du code. Ne fût-ce que les signatures des fonctions

2eme question: est-ce que le temps d'execution sera diminué avec l'utilisation du pointeur par rapport à if then else ?

Plus court, oui... Mais le gain de temps risque d'être très marginal. Au point que tu ne percevras peut-être pas la différence, même avec des milliers d'appels.

[AlfredKr]

1ere question:
Les 2 fonctions ont la même signature.
voici l'implementation:

Code :

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

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
para : integer;
procedure f(x: double);
begin
...
end;
 
procedure g(x: double);
begin
...
end;
 
procedure a(p : double);
var
  i: integer;
  pdt : double; 
begin
  p := para;
  for i := 0 to 10000 do
  begin
    if p = 1 then
      f(i*pdt)
    else
      g(i*pdt);
  end;
end;

bien sûr le programme n'est pas aussi simple !!!

Fred

[Andnotor]

Code :

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

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
type
  TMyProc = procedure(x :double);
 
procedure f(x: double);
begin
end;
 
procedure g(x: double);
begin
end;
 
procedure a(aProc : TMyProc);
var
  i: integer;
  pdt : double;
begin
  for i := 0 to 10000 do
    aProc(i*pdt)
end;
 
 
procedure TForm10.Button1Click(Sender: TObject);
begin
  a(f);
end;
 
procedure TForm10.Button2Click(Sender: TObject);
begin
  a(g);
end;

[Nebulix]

Code :

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

1
2
3
4
5
6
7
8
9
 
 
type
  TMyProc = procedure(x :double);
var theproc:tmyproc
 
...
theproc:=f;//ou g
a(theproc);