Bonjour, je dois récupérer le code d'un collègue qui malheureusement n'est pas très rigoureux dans la présentation .
Pour exemple :
Code Pascal : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
if POSEUR.ID_BOITE>-1 then
   SQL.Add(inttostr(POSEUR.ID_BOITE)+',') else
   SQL.Add('NULL,');
 if NUM_PRE<>'' then
 begin
    if Form1.PRE_TRAIT.Locate('NUM_PRE',NUM_PRE,[]) then
       SQL.Add(QUOTEDstr(Form1.PRE_TRAIT.fieldbyname('Type_PRE').asstring)+',')else
       SQL.Add('NULL,');
 end else SQL.Add('NULL,');
 if NUM_TRAIT<>'' then
 begin
    if Form1.TRAIT.Locate('NUM_TRAIT',NUM_TRAIT,[]) then
       SQL.Add(QUOTEDstr(Form1.TRAIT.fieldbyname('Type_TRAIT').asstring)+',')else
       SQL.Add('NULL,');
 end else SQL.Add('NULL,');
 
if  NUM_COLLECTE<>'' then
begin
   if Form1.COLLECT.locate('NUM_COLLECTE',NUM_COLLECTE,[]) then
      OBSEREXU:=  'Collecte : '+Form1.Collect.fieldbyname('TYPE_COLLECTE').asstring;
end;
if  NUM_EVA <>'' then
begin
   if Form1.EVA.locate('NUM_EVA',NUM_EVA,[]) then
      if OBSEREXU='' then
         OBSEREXU:=  'Evacuation : '+Form1.Eva.fieldbyname('TYPE_Eva').asstring else
         OBSEREXU:= OBSEREXU+chr(vk_return)+ 'Evacuation : '+Form1.Eva.fieldbyname('TYPE_Eva').asstring;
end;
if  OBSEREXU<>'' then
    SQL.Add(QUOTEDSTR(OBSEREXU)+');')else
   SQL.Add('NULL);');
J'aimerai donc savoir s'il existe des outils permettant de faire un peu le ménage, pour le rendre plus lisible.