Factorisation de code de plusieurs Forms
Bonjour,
La question est certainement idiote... Mais comment factorise-t-on le code en Lazarus ?
Citation:
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:
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
