Discussion :

[ILP]

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.

[evarisnea]

sous delphi 2010 il y a une option pour effectuer cela (Ctrl+D).
sinon tu peux essayer des outils/plugins tels que :
Jedi Code Format
Delphi Code Formatter
Delphi Source Code Formatter (payant)

[ILP]

Ça m'a l'air pas mal . J'ai un peu testé Jedi Code Format, il me reste plus qu'à trouver les bons réglages pour formater le code comme j'ai l'habitude de l'écrire. Ça sera plus lisible comme ça .