Discussion :

[TryExceptEnd]

même nombre de lignes quand on ne fait qu'un appel à la fonction...mais dans ce cas je ne vois pas l'intérêt de faire une fonction, quelque soit la méthode

En fait, la fonction ou la procédure appelée fait plus (et elle est située dans sa propre unité):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 .../...
with TFChoixReglement.Create(Application) do begin
  ShowModal;
  try
  if ModalResult=mrOk then begin
   vList.Add(ComboBox1.Text);
   vList.Add(Edit1.Text);
  end;
  finally
  Free;
  end;
 end;

[CapJack]

même nombre de lignes quand on ne fait qu'un appel à la fonction...

Ou bien que les différents appels se font avec le même objet, ce qui n'est pas rare. Il m'arrive fréquemment de construire des objets utilitaires dans le Create de la fiche, et de les libérer dans le Destroy de cette même fiche, ces objets étant ensuite utilisés comme paramètres de transmission, en utilisant Clear et non Free pour le nettoyage.

Ceci étant, je n'avais pas répondu car la discussion devenait lourde, mais le copier/coller ça marche aussi pour les codes sources ! 10 lignes de plus ou de moins, qu'est-ce que ça veut dire aujourd'hui ?

Compte-tenu qu'aujourd'hui un code source peut très vite devenir une usine à gaz, je préfère de loin privilégier la lisibilité au nombre de lignes (de même que, dans des limites raisonnables, je préfère la fiabilité et la stabilité à la performance, mais c'est hors-sujet).