Bonjour,
j'ai dû écrire 2 procédures dont les instructions sont complétement identiques car le type du paramètre est différent.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure proc1 (var tab :TEdit);
begin
// Instructions
end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure proc2(var tab:TStaticText);
begin
// Instructions strictement identiques à  la proc1
end;
Je n'ai pas trouvé la méthode pour éviter cela.
Merci par avance