[Pascal] Comment nettoyer un code source ?
Bonjour, je dois récupérer le code d'un collègue qui malheureusement n'est pas très rigoureux dans la présentation :fessee: .
Pour exemple :
Code:
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.
:merci:
