Discussion :

[Maglight]

Je m'explique, j'ai une syntaxe du type :
With TOTO do
begin
-------------------------------------------------------------------
------ 300 lignes de codes avec plein, plein de variable
------ et d'appel de procédures, fonctions, ....
-------------------------------------------------------------------
end;

Mon pb est que dans l'exécution de mon programme j'ai deux cas de figure , l'un avec TOTO et l'autre avec TOTO_BIS.
Je ne souhaite pas duplique le code et/ou sortir mes 300 lignes dans une procédure.
Est-il possible de faire quelque chose du type :
with decode(Test,True,TOTO,TOTO_BIS ) do
begin
-----------
end;

Merci de votre aide.

[Arrown]

Je dis ça rapidement mais est-ce que cela irait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  VTOTO : TOBJECT;
  I : integer;
begin
for I := 0 to 1 do
   begin
   if I = 0 then VToto := Toto else
      VToto := Toto_bis;
   with VTOTO do
      begin
      ...
      end;
   end;

Non ?

Moi, je sortirai tout dans une procédure style :

Code :

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

1
2
3
4
5
6
Procedure Gerertoto(PToto : TObject);
begin
with PTOTO do
   begin
   end;
end;

[Manopower]

si Toto et TotoBis sont des controls identiques tu peux passer ce composant à ta procédure

Code :

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

1
2
3
4
5
procedure proc(monToto : Tobject);
begin
 
with (montoto as TEDIT) do //Tedit pour l'exemple mais c'est ce que tu veux ;)
....

[Arrown]

Les grands esprits se rencontrent ;-)

[Manopower]

Il y a bien toi, mais j'ai vu personne d'autre qui correspondait à cette description