Discussion :

[Olivier59260]

Bonjour,

Non programmeur, j'essaye d'améliorer une procédure à partir d'un vieux Fast report intégré au SIGB, qui travaille notamment avec du Delphi (je précise de suite : format de données propriétaire pas de SQL possible).
Je rencontre actuellement un problème dans un enchaînement if/else if/.../else, il me réclame un BEGIN supplémentaire en dernière ligne que je ne comprends pas.

je ne sais pas s'il s'agit d'un prble de syntaxe tout bête ou si je me plante complètement... J'ai aussi essayé avec un "case of" mais sans plus de succès.

Merci d'avance pour tout conseil...

Olivier
here is the code...

Code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
procedure DonneesMaitre1OnBeforePrint(Sender: TfrxComponent);            
var 
Etat,Site,Emplacement,Situation:string;
Begin          
  Site:=Trim(<Emprunteurs;Responsable légal>);
  Etat:=Trim(<Réservations;Etat>);
  Emplacement:=Trim(<Exemplaires;Emplacement>);
  Situation:=Trim(<Exemplaires;Situation>);    
 
if (Site='Valenciennes') then
Begin            
 DonneesMaitre1.visible:=false
 end         
 
else if (Site='Lille') then 
Begin
 if (Emplacement='Lille') and (Situation='Disponible') then
  DonneesMaitre1.visible:=false
 else if (Emplacement='Valenciennes') and (Situation='Disponible') then
 DonneesMaitre1.visible:=true
 else
 DonneesMaitre1.visible:=false;    
 end 
 
 else if (Site='Arras') then
 Begin
 if (Emplacement='Arras') and (Situation='Disponible') then
  DonneesMaitre1.visible:=false   
 else if (Emplacement='Valenciennes') and (Situation='Disponible') then
 DonneesMaitre1.visible:=true  
 else
 DonneesMaitre1.visible:=false;  
 end  
 
 else if (Site='Gravelines') then
 Begin
  if (Emplacement='Gravelines') and (Situation='Disponible') then
  DonneesMaitre1.visible:=false
 else if (Emplacement='Valenciennes') and (Situation='Disponible') then
 DonneesMaitre1.visible:=true  
 else
 DonneesMaitre1.visible:=false;  
 end   
 
 else
 begin             
 DonneesMaitre1.visible:=false; 
 end;
 
 end;

[SergioMaster]

Bonjour,

il me semble que cela peut se simplifier

déjà comme ceci

Code :

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
 
procedure DonneesMaitre1OnBeforePrint(Sender: TfrxComponent);            
var 
Etat,Site,Emplacement,Situation:string;
Begin          
  Site:=Trim(<Emprunteurs;Responsable légal>);
  Etat:=Trim(<Réservations;Etat>);
  Emplacement:=Trim(<Exemplaires;Emplacement>);
  Situation:=Trim(<Exemplaires;Situation>); 
  //----------------------------------------Simplification 1 -----------------------
  DonneesMaitre1.visible:=false;
  if (Site='Lille') AND (Emplacement='Valenciennes') and (Situation='Disponible') then 
   begin
        DonneesMaitre1.visible:=True;
        Exit;    
   end;
  if (Site='Arras') AND (Emplacement='Valenciennes') and (Situation='Disponible') then
   begin
        DonneesMaitre1.visible:=True;
        Exit;    
   end;
  if (Site='Gravelines') AND (Emplacement='Valenciennes') and (Situation='Disponible') then
   begin
        DonneesMaitre1.visible:=True;
        Exit;    
   end; 
  // ---------------------------fin simplification --------------------------------------
end;

puis peut être ainsi

Code :

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

1
2
3
4
5
6
 
  //--------------------------- Simplification 2 -------------------------------------------------------
   DonnéesMaitre1.Visible:=  ((Site='Lille') AND (Emplacement='Valenciennes') and (Situation='Disponible'))
                                  OR ((Site='Arras') AND (Emplacement='Valenciennes') and (Situation='Disponible')) 
                                  OR ((Site='Gravelines') AND (Emplacement='Valenciennes') and (Situation='Disponible'));
  // ---------------------------fin simplification --------------------------------------

voire même (à supposer qu'il n'y ait pas d'autres villes ayant cette condition (Emplacement='Valenciennes') and (Situation='Disponible')

Code :

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

1
2
 
 DonnéesMaitre1.Visible:=((Emplacement='Valenciennes') and (Situation='Disponible')) OR (Site<>'Valencienne');

une grille de décision (tableau) aurait été bien pratique (mais je ne sais pas si ça s'enseigne encore ce genre de choses )

[Roland Chastain]

il me réclame un BEGIN supplémentaire en dernière ligne que je ne comprends pas.

Bonjour !

Bizarre, je ne vois pas de "begin" manquant dans le code. Je l'ai réindenté d'une façon qui me paraît plus claire (et légèrement modifié pour pouvoir essayer de le compiler) :

Code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program code;
 
uses
  SysUtils;
 
var 
  Etat, Site, Emplacement, Situation: string;
  DonneesMaitre1: record visible: boolean; end;
 
begin          
  Site := Trim('');
  Etat := Trim('');
  Emplacement := Trim('');
  Situation := Trim('');    
 
  if (Site = 'Valenciennes') then
  begin            
    DonneesMaitre1.visible := false
  end else
    if (Site = 'Lille') then 
    begin
      if (Emplacement = 'Lille') and (Situation = 'Disponible') then
        DonneesMaitre1.visible := false
      else
        if (Emplacement = 'Valenciennes') and (Situation = 'Disponible') then
          DonneesMaitre1.visible := true
        else
          DonneesMaitre1.visible := false;    
    end else
      if (Site = 'Arras') then
      begin
        if (Emplacement = 'Arras') and (Situation = 'Disponible') then
          DonneesMaitre1.visible := false   
        else
          if (Emplacement = 'Valenciennes') and (Situation = 'Disponible') then
            DonneesMaitre1.visible := true  
          else
            DonneesMaitre1.visible := false;  
      end else
        if (Site = 'Gravelines') then
        begin
          if (Emplacement = 'Gravelines') and (Situation = 'Disponible') then
            DonneesMaitre1.visible := false
          else
            if (Emplacement = 'Valenciennes') and (Situation = 'Disponible') then
              DonneesMaitre1.visible := true  
            else
              DonneesMaitre1.visible := false;  
        end else
        begin             
          DonneesMaitre1.visible := false; 
        end;
 
end.

[Papy214]

et ça, ça le ferait pas pareil ?

Code :

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
 
var
  Etat, Site, Emplacement, Situation: string;
  B: Boolean;
Begin
  Site        := Trim('Emprunteurs;Responsable légal');
  Etat        := Trim('Réservations;Etat');
  Emplacement := Trim('Exemplaires;Emplacement');
  Situation   := Trim('Exemplaires;Situation');
 
  B := (Emplacement = 'Valenciennes') and (Situation = 'Disponible'));
  DonneesMaitre1.visible :=
    ( Site = 'Valenciennes' ) or
    ( (Site = 'Lille')      and B ) or
    ( (Site = 'Arras')      and B ) or
    ( (Site = 'Gravelines') and B );
 
end;