Discussion :

[K20]

Bonjour tout le monde !

Voilà, je voudrais optimiser un peu mon code. En effet, j'ai deux procédures : l'une pour un bouton (elle gère quand on clique sur le bouton), l'autre pour le menu (quand on clique sur le bouton du menu).

Les 2 ont la même fonction et le même code, elles permettent de sauvegarder mon fichier.

Ma question est, comment les regrouper en une seule ou une autre astuce pour pas taper le même code mais pour que ça fonctionne toujours ^^ ?

Voici mon code :

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
31
32
33
/////////////////////////////////////////////
// Bouton enregistrer --> enregistre la map //
//////////////////////////////////////////////
procedure Ts_editeur.EnregistrerClick(Sender: TObject);
var
  Map : TextFile;
  NomMap : string;
begin
    if SaveDialog.execute then
  begin
  NomMap := SaveDialog.FileName + '.map';
  AssignFile(Map, NomMap);
  Rewrite(Map);
  CloseFile(Map);
  end;
end;
 
////////////////////////////////////////////
// Menu enregistrer --> enregistre la map //
////////////////////////////////////////////
procedure Ts_editeur.EnregistrerInterClick(Sender: TObject);
var
  Map : TextFile;
  NomMap : string;
begin
    if SaveDialog.execute then
  begin
    NomMap := SaveDialog.FileName + '.map';
    AssignFile(Map, NomMap);
    Rewrite(Map);
    CloseFile(Map);
  end;
end;

Merci d'avance

[jmjmjm]

salut tu en efface une des deux et dans la propriete on click de ton menu ou de ton bouton tu met la fonction TBouton1CLick si tu as suprimer le menu par exemple Suis-je clair??

[e-ric]

Salut

Ton problème a plusieurs solutions, la plus simple consiste à partager un unique gestionnaire d'événement. Par exemple
1 - tu supprimes le gestionnaire EnregistrerInterClick.
2 - tu associes le gestionnaire EnregistrerClick à l'événement OnClick de ton item de menu.

C'est tout.
Autres solutions :
- créer une procédure d'enregistrement et l'appeler depuis tes gestionnaires
- créer une action et associer l'action au bouton et au menu, le gestionnaire d'événement est alors associé uniquement à l'action.

La dernière solution dépend de la version de Delphi (les actions n'existent dans les anciennes versions de Delphi si je me souviens bien).

cdlt

e-ric

[K20]

Je crois que je vais prendre la première solution ^^

Je teste ça demain et je vous tient au courant

[Archimède]

si première solution, n'oublie pas nil.

Code :

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

enregistrerclick (nil);

dans le Onclick

[K20]

Ok, je fais ça ce soir

[DMO]

Salut K20,

Si tu peux avec ton delphi, je te conseille de t'interesser aussi (surtout ?) à l'autre solution judicieusement proposée par e-ric : les actions.

À cela de nombreuses raisons : j'évoquerai par exemple la gestion centralisée des évènements, des ImageIndex, des Captions, etc, sans jamais avoir à se soucier des contrôles auxquels tu associeras l'action. Génial pour modifier rapidement une IHM.

Exemple : immagine que tu as une même fonction que tu veux rendre accessible par un menu, un bouton, un toolbouton, et un popupmenu. Tu as tout configuré, tu as assigné le même évènement à tout le monde (c'est déjà pas mal). Mais là quelqun vient te demander de changer par exemple le caption. Sans action tu te tapes le même changement 4 fois, alors qu'avec les actions, tu l'as compris, c'est centralisé.

C'était juste pour information bien entendu. Fais comme tu veux.

[K20]

Je prend note pour d'autres procedures ou fonctions

[K20]

C'est bon ça fonctionne

Merci à tous !