Type paramètre diffèrent dans deux procédures identiques

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:

---

1 2 3 4

procedure proc1 (var tab :TEdit); begin // Instructions end;

---

Code:

---

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

il est possible éventuellement de remplacer par

Code:

---

1 2 3 4 5

procedure proc1(var tab:TWinControl); begin // Instructions strictement identiques à la proc1 end;

---

mais ça va dépendre du code

Même réponse que Paul TOTH, en ajoutant que si tu te sert uniquement du texte de ces composants, tu peux demander une simple chaîne en paramètre.

et le overload ? bien que dans ce cas ce soit peut-être "too much"

Citation:

---

Envoyé par SergioMaster

et le overload ? bien que dans ce cas ce soit peut-être "too much"

---

il ne répond pas à la question qui est d'éviter la duplication du code :)

à la rigueur une méthode de classe générique, cela duplique le code mais sans avoir à l'écrire :)