Réutiliser une procédure

Version imprimable

14/06/2008, 00h37
4rocky4

Réutiliser une procédure
Bonsoir tous le monde,

J'ai une procédure qui est utilisé sur 3 feuilles différentes. C'est exactement la même donc je voudrais l'avoir une seule fois et ensuite juste l'appeler.

Dans cette procédure, il y a des .text et des .visible ... et je ne sais pas comment faire la procédure :s

Voilà un exemple :
Code:

1 2 3 4 5 6 7 If trouve then Begin gb_coord.Visible:=true; gb_gene.Visible:=true; za_nom.Visible:=true; zs_nom.Visible:=true; ...
je ne sais pas comment gérer cela.

Bonjour.

Facile ......... quand on sait !

C'est néamoin simple. Commence par créer une Unité. Voici ce qui apparaît
Code:

1 2 3 4 5 6 7 unit Unit1; interface implementation end.
Ajoute du code pour arriver à ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 unit Unit1; uses SysUtils, Variants, Classes; // j'ai mis au hasard Type TFonction = class(TApplication) Private Public end; Var Fonction : TFonction; // le nom est au choix implementation uses // si tu en as besoin end.
Enregistre, par exemple sous le nom de MesFontions.

Ensuite tu peux créer ce que tu veux. Voici un exemple
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 unit MesFonctions; uses SysUtils, Variants, Classes; Type TFonction = class(TApplication) Private Public function Calcul(var Montant : real; Origine : integer) : boolean; end; Var Fonction : TFonction; implementation uses // ce dont tu as besoin function TFonction.Calcul(var Montant : real; Origine : integer) : booelan begin if Origine = 0 then Result := false else begin Montant := 1485/Origine; Result := true; end; end; end.
Et dans tes fenêtres tu ajoutes
Code:

1 2 3 4 5 6 7 8 9 10 . .. uses MesFonctions,......; . . . Test := Fonction.Calcul(Montant,Diviseur); . . .
Tu peux alors ajouter autant de sous-fonctions que tu veux dans MesFonctions. En revanche pour voir ton code de MesFonctions, passe par Fichier/Ouvrir.

Bon code et Bon weekEnd:yaisse2:

14/06/2008, 11h01
4rocky4

Mon problème est toujours le même ...

Dans ma procédure, j'utilise des xxxx.text et des xxxx.visible

xxxx ici est un Tedit qui est le même sur chaque formulaire.

Donc il y a une erreur sur tous les text et visible. Faut il les déclarer ?
14/06/2008, 11h16
4rocky4

Ah c'est bon, j'ai trouvé où il fallait les mettre, en dessous de type :yaisse2: lol
14/06/2008, 11h28
4rocky4
j'obtiens une erreur par contre quand je clic sur le bouton appelant la procédure et quand je mets arrêter, j'arrive a cette ligne :

Code:

If intermed.NOPERSO=strtoint(zs_numero.text) then

Classe d'exception EAccessViolation avec message 'Access violation at adress ... in module 'pj_rocky

Pourtant cette procédure marche très bien normalement.
Intermed et NOPERSO sont déclarés dans unit_principale.
Code:

1 2 3 4 5 6 7 8 9 Type Personnestandard = record NOPERSO : integer; ... var intermed : personnestandard
Dans unit_procedure, j'ai mis un uses unit_principale.
14/06/2008, 12h16
4rocky4

Je sais pas si je me suis bien expliqué lol
J'vais rééssayer :)

J'ai un quatre formulaires : modifier, ajouter, supprimer, consulter.
Sur chaque formulaire, j'ai un bouton rechercher qui appel exactement la même procédure.
Dans cette procédure, des Tedits sont utilisés. Par exemple, la recherche se fait par le numéro saisie dans zs_numero. Ces champs là sont les même sur tout les forumulaires.

Donc ce que je veux faire, c'est une seule procédure puis l'appeler sur chaque bouton rechercher (formulaire : modifier, ajouter, supprimer, consulter)

Euh :? On va reprendre depuis le début parce que presque tout ce qui a été dit est faux/inadapté. Désolé.

Le problème initial et profond est que, le gb_coord d'une form n'est pas le gb_coord d'une autre. Ce n'est pas parce que leur nom est le même que l'entité est la même.

Autrement dit, des deux procédures ne sont pas les mêmes. Elles prennent la même forme textuelle, mais pas la même forme compilée.

Il y a deux moyens de résoudre ce problème. Un propre et délicat à mettre en place si ton appli est fort avancée. Un pas propre mais faisable en 3 minutes.

La solution pas propre est de récupérer tes composants à partir de leur nom vraiment (propriété Name), et donc utiliser FindComponent.
Code:

1 2 3 4 5 6 7 8 9 10 procedure DoSomething(Form: TForm; Trouve: Boolean); begin if Trouve then begin (Form.FindComponent('gb_coord') as TControl).Visible := True; (Form.FindComponent('gb_gene') as TControl).Visible := True; (Form.FindComponent('za_nom') as TControl).Visible := True; (Form.FindComponent('zs_nom') as TControl).Visible := True; end; end;
La solution nettement plus propre est de construire ta fiche par héritage (les 4 composants concernés seront dans la fiche parente) ou avec une frame (cadre).
Si tes 4 composants forment un groupe sémantique logique, tu peux créer un cadre les contenant, et ce cadre possèdera la méthode DoSomething. Ensuite, il suffira de placer ce cadre sur tes deux fiches.

Par héritage, euh... Ce sera casse-gueule si tu ne maîtrise pas encore le reste. Perso, je n'ai jamais utilisé l'héritage de fiches, parce que c'est tellement plus difficile à gérer, et que les cadres peuvent souvent proposer une solution plus simple.

14/06/2008, 12h38
4rocky4

Je te remercie pour ta réponse, l'héritage, je connais mais avec l'objet.

Je vais prendre la "pas propre" comme solution.

Tu dit qu'il faut reprendre dès le début ... mais jusqu'où lol, dans la nouvelle unité créée, je ne déclare pas comme ci dessus, je passe directement à la procédure c'est cela ?
15/06/2008, 10h57
4rocky4

Je n'y suis toujours pas parvenue :(
Peut on mieux m'expliquer la dernière solution car là je tourne en rond :roll:

Tu fais une unité Common.pas avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
unit Common;
 
interface
 
uses
  Classes, Forms;
 
procedure DoSomething(Form: TForm; Trouve: Boolean);
 
implementation
 
procedure DoSomething(Form: TForm; Trouve: Boolean);
begin
  if Trouve then
  begin
    (Form.FindComponent('gb_coord') as TControl).Visible := True;
    (Form.FindComponent('gb_gene') as TControl).Visible := True;
    (Form.FindComponent('za_nom') as TControl).Visible := True;
    (Form.FindComponent('zs_nom') as TControl).Visible := True;
  end;
end;
 
end.

Et dans tes événements de boutons tu appelles :

Code:

DoSomething(Self, Trouve);

Tout en ayant bien sûr ajouté Common aux uses des deux unités qui définissent tes forms.

15/06/2008, 14h57
4rocky4

Excusez moi mais ça ne marche pas ...

Sur la première ligne comme toutes les autres, il y a un problème ici :

Code:

(Form.FindComponent('gb_coord') as TControl).Visible := True;

Delphi me dit que Tcontrol et visible ne sont pas déclarés.
15/06/2008, 15h51
sjrd

Eh bien tu fais F1 sur TControl, cela te donnera quelque part le nom de l'unité dans laquelle est déclarée TControl, et tu rajoutes cette unité à la clause uses de Common.pas.

Je ne le fais pas pour toi parce que c'est un truc que tu dois absolument pouvoir faire toi-même.
15/06/2008, 16h25
4rocky4

Merci bien :) c'est très utile oui merci beaucoup !
Par contre je ne trouve pas .text
Dois je mettre .caption ? mais je ne trouve pas non plus là :traine:

Code:

(Form.FindComponent('zs_nom') as tcontrol).Text:=Intermed.NOM;

pê faut-il tenir compte du type de contrôle trouvé, pour transtyper de manière adaptée et avoir accès à ses propriétés ?
Code:

1 2 3 MyComponent:=Form.FindComponent('zs_nom'); // var MyComponent: TComponent; if MyComponent is TEdit then TEdit(MyComponent).Text:=Intermed.NOM; if MyComponent is TLabel then with MyComponent as TLabel do Caption:= Intermed.NOM;

15/06/2008, 18h03
4rocky4

zs_nom est toujours un Tedit, je dois quand même faire cela ?

C'est ma dernière erreur que delphi me trouve pour l'instant, c'est stressant :?
15/06/2008, 18h35
tourlourou

Code:

(Form.FindComponent('zs_nom') as TEdit).Text:=Intermed.NOM;

suffit si c'est toujours un TEdit : les exemples avant servaient juste à montrer plusieurs syntaxes utilisables.

NB : si les bugs te stressent autant, remplace la prog par le yoga ;-)
15/06/2008, 19h07
4rocky4

La prog et le yoga, ça va ensemble :-)

Pour une zone d'un TMaskEdit, Tedit ne passe pas. Normal :D mais si je fais :

Code:

(Form.FindComponent('zs_cp') as TMaskEdit).Text:=Intermed.CP;

Ca marche pas, c'est pas aussi simple que ça :evilred:
15/06/2008, 19h17
ero-sennin

Salut,

Citation:

Envoyé par 4rocky4

Pour une zone d'un TMaskEdit, Tedit ne passe pas. Normal :D mais si je fais :

Code:

(Form.FindComponent('zs_cp') as TMaskEdit).Text:=Intermed.CP;

Ca marche pas, c'est pas aussi simple que ça :evilred:

Quelle est l'erreur stp ?
Chez moi, le code suivant fonctionne :

Code:

(Form1.FindComponent('zs_cp') as TMaskEdit).Text:='15';

:roll:
15/06/2008, 19h39
4rocky4

Il fallait mettre mask dans le uses.
C'est tout bon maintenant :-)