Discussion :

[BECHE]

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

[Paul TOTH]

il est possible éventuellement de remplacer par

Code :

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

1
2
3
4
5
 
procedure proc1(var tab:TWinControl);
begin
// Instructions strictement identiques à la proc1
end;

mais ça va dépendre du code

[popo]

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.

[SergioMaster]

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

[Paul TOTH]

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