Discussion :

[Invité]

Bonjour,

La question est certainement idiote... Mais comment factorise-t-on le code en Lazarus ?

En programmation informatique, la factorisation de code consiste à rassembler les suites d'instructions identiques dispersées dans un programme en une fonction, pour améliorer la lisibilité du code (Commentaire personnel : j'ai quelques doutes concernant cette partie de l'affirmation) et en faciliter la correction et les modifications ultérieures (Là, sans réserve).
http://fr.wikipedia.org/wiki/Factorisation_(informatique)

Supposons que j'ai x FormWx avec des composants identiques (ici un TZQuery).

Code :

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

1
2
3
4
5
procedure TFormW1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 ZQueryDbGrid.Close;
 if not bOK then ErrSys(rsMessIncident,iNumForm*1000+238);
end;

Ici évidemment, une factorisation a peu d'intêret mais me semble bien résumer le problème que je rencontre.

Je me demandais -et je ne trouve pas de réponse simple- s'il était possible de factoriser le code de toutes ces TFormWx.FormClose sans passer par $I ? Cordialement. Gilles

[Paul TOTH]

je ne connais pas bien Lazarus, mais sous Delphi il est possible de faire hériter toutes les fiches d'une fiche possédant le composant TZQuery et le code indiqué.