Besoin d'aide pour optimiser un code

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour, voilà y a t'il un moyen pour optimiser ce code?

Code:

1
2
3
4
5
6
7
8
 if (FSaveButton is TButton) then
  (FSaveButton as TButton).OnClick:= SaveProjectEvent;
 
 if (FSaveButton is TMenuItem) then
   (FSaveButton as TMenuItem).OnClick := SaveProjectEvent;
 
 if (FSaveButton is TToolButton) then
   (FSaveButton as TToolButton).OnClick := SaveProjectEvent;

J'ai beau y triturer dans tout les sens je ne vois pas ...
Merci !
;)

02/08/2009, 23h37
droggo

Noe,

Déjà, enchaîner les différents tests avec des sections else pour les if, puisque les tests ne peuvent pas être tous vrais en même temps. Tu évites ainsi de faire ceux qui ne servent à rien. :)
03/08/2009, 00h24
petitprince
humm.... certe....
Je me suis mal exprimé, je ne parlais pas d'optimisations de ce style, mais je voyais plutôt la chose comme ça:
Code:

1 2 3 if (FSaveButton.ClassType = TButton) or ..... then (FSaveButton as 'une classe générique').OnClick := SaveProjectEvent;
Parce que je vais avoir à peu prêt une cinquantaine du ligne de se style....
Voilà;)

Salut,

Peut être une piste à compléter pour toi...
Code:

1 2 3 4 5 type TWinControlAccess = class(TWinControl); TWinControlAccess(FSaveButton).OnClick := SaveProjectEvent;

03/08/2009, 00h35
Mac LAK

A part éviter effectivement de faire systématiquement les trois tests, je ne vois pas trop comment optimiser ça...

On ne peut pas passer par les objets ancêtres, car TControl (adéquat pour TButton et TToolButton) ne publie pas son évènement OnClick. TMenuItem, lui, dérive directement de TComponent en plus...
03/08/2009, 09h43
Andnotor

N'as-tu pas le composant TActionList dans ta version de Delphi ?
Ces trois contrôles seraient liés statiquement à une action et seul l'événement de cette action pourrait être settée.
03/08/2009, 13h04
edam

FSaveButton.OnClick := SaveProjectEvent
03/08/2009, 15h19
petitprince

@edam:
C'est impossible.... Cette solution ne peut marcher que si on sait à l'avance à quelle classe FSaveButton appartient, mais dans mon cas on ne sait pas, d'où les tests...
Mais je le reconnais, c'est un peu de ma faute car je n'ai pas assez donné de précisions:

FSaveButton est une propriété de composant et du type TComponent.
Pour faire apparaitre l'événement "OnClick", on est obligé de transtyper FSaveButton et de tester s'il appartient à une classe donnée, sinon Delphi refuse de compiler.

@Andnotor:
Justement j'essaie de reproduire le TActionList, sans l'utiliser, car en réalité j'utilise des composants graphiques(boutons, menus, ...) que j'ai moi-même développé, et je n'ai pas envie de leur implémenter des actions....

Citation:
Envoyé par petitprince
Code:

1 2 3 4 5 6 7 8 if (FSaveButton is TButton) then (FSaveButton as TButton).OnClick:= SaveProjectEvent; if (FSaveButton is TMenuItem) then (FSaveButton as TMenuItem).OnClick := SaveProjectEvent; if (FSaveButton is TToolButton) then (FSaveButton as TToolButton).OnClick := SaveProjectEvent;
Je vais peut etre dire une grosse bêtise mais bon ...

Est ce qu'on pourrait pas faire un tableau contenant :
Tab=[TButton,TMenuItem,TToolButton,...,...,...]
et ensuite faire
Code:

1 2 3 4 5 6 for i:=low(Tab) to High(Tab) if (FSaveButton is Tab[i]) then begin (FSaveButton as Tab[i]).OnClick := SaveProjectEvent; Break; end;
Je sais pas si c'est vraiment possible ...

Salut,

Version 2 de mon précédent post:

Puisque "OnClick" apparaît avec TControl:

Code:

1
2
3
4
5
6
7
8
9
 
type
  TControlAccess = class(TControl);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FSaveButton.InheritsFrom(TControl) then
    TControlAccess(FSaveButton).OnClick := TestHandler;
end;

salut

Code:

1
2
3
4
5
6
 
Found := (FSaveButton is TButton) 
          or (FSaveButton is TMenuItem)
          or (FSaveButton is TToolButton); 
 if Found  Then 
  TComponent(FSaveButton).OnClick := SaveProjectEvent;

@+ Phil

03/08/2009, 18h30
petitprince

Aucune des solutions ne marche, sauf celles de Kaféine, pour la simple raison que l'on ne connais pas le type de FSaveButton à l'avance.

@anapurna:
Delphi refuse catégoriquement la compilation. "TComponent(FSaveButton)" n'a pas d'événement OnClick, même avec les tests de début...

Les exemples de Kaféine fonctionnent, car on admet que le type donné à FSaveButton est un TControl, TControl qui comporte bien l'événement OnClick. Ils ne marchent pas cependant pour les TMenuItems, descendant de TComponent, voire TCollectionItem ????
03/08/2009, 18h58
anapurna

salut

je n'avait pas tester :aie:
d'apres ce que tu dit ils n'ont pas d'ancêtre commun ?

dans ce cas il va falloir dissocier tes différent ancêtre ayant une méthode onclick afin de pouvoir transtypé les différents composant

@+ Phil

Du coup il ne reste plus que la solution RTTI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
(...)
  published
    procedure TestHandler(Sender: TObject);
(...)
 
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PPropInfo;
  LeHandler: TMethod;
begin
    P := GetPropInfo(FSaveButton, 'OnClick');
    if P <> nil then
    begin
      LeHandler.Code := MethodAddress('TestHandler');
      LeHandler.Data := Pointer(Self);
      SetMethodProp(FSaveButton, P, LeHandler);
    end;
end;

03/08/2009, 20h10
edam

Citation:

Envoyé par Andnotor

N'as-tu pas le composant TActionList dans ta version de Delphi ?
Ces trois contrôles seraient liés statiquement à une action et seul l'événement de cette action pourrait être settée.

+1
04/08/2009, 13h10
petitprince

J'ai expliqué plus haut pourquoi je ne souhaite pas utiliser le TActionList. Je ne me répèterai donc pas.

@Kaféine:
Ta solution marche impec, dommage que l'on soit obligé de mettre la nouvelle méthode en "published".
Je l'ai comprise donc c'est bon, je considère ce sujet comme résolu;)

Merci à toi et à tous les participants
:ccool:

svp ne crié pas, essai ce code, je sais pas pourquoi il marche chez moi :calim2: :

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
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    xxx1: TMenuItem;
    xxxx1: TMenuItem;
    Button2: TButton;
    Shape1: TShape;
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
  maclas=class(TControl)
 
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin   
     with maclas(xxxx1) do
        if @OnClick=nil then ShowMessage('Erreur')
        else ShowMessage(inttostr(integer(@OnClick)));
     with maclas(Shape1) do
        if @OnClick=nil then ShowMessage('Erreur')
        else ShowMessage(inttostr(integer(@OnClick)));
end;

:aie:

04/08/2009, 15h59
petitprince

Mais je ne criais pas, je le disais calmement;)
Bizarre ton code, car chez moi il ne fonctionne pas du tout, ce qui est normal:
le shape n'a pas de méthode "OnClick", et le TMenuItem n'est pas un TControl.

Je ne comprend pas pourquoi ça marche chez toi ....

EDIT:
Bon après des tests plus poussés, le code marche uniquement au premier click sur le bouton, mais il marche uniquement pour le TMenuItem !!!!:calim2:
Là je n'y comprend rien !!!:aie:
04/08/2009, 16h26
edam

Citation:

Envoyé par petitprince

EDIT:
Bon après des tests plus poussés, le code marche uniquement au premier click sur le bouton, mais il marche uniquement pour le TMenuItem !!!!:calim2:
Là je n'y comprend rien !!!:aie:

c'est ce que je veux dire exactement, avec TShap --> message erreur, avec TItemMenu---> l'adresse de onclick
à propos, j'ai delphi 6 :aie:

edit:

Citation:

Envoyé par petitprince

Mais je ne criais pas, je le disais calmemen

pas pour toi, c'est pour tout les delphistes, car ce code n'a aucun sens :aie:
04/08/2009, 23h36
Mac LAK

Citation:

Envoyé par petitprince

Aucune des solutions ne marche, sauf celles de Kaféine, pour la simple raison que l'on ne connais pas le type de FSaveButton à l'avance.

Sauf qu'en raisonnant POO, elle contrevient à toutes les règles d'héritage : tu transtypes ta classe vers une classe dont elle n'hérite pas !!!

La solution du TActionList resterait la plus "propre", même si elle suppose une indirection de plus.

Voir 40 message(s) de cette discussion en une page