Discussion :

[Sylvain255]

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
  dans le code :
 
type
tdirection=record
    offsetLigne:integer;
    offsetColonne:integer;
  end;
 
const 
  nord:tdirection=(offsetLigne:-1;offsetColonne:0);
  sud:tdirection=(offsetLigne:1;offsetColonne:0);
  ouest:tdirection=(offsetLigne:0;offsetColonne:-1);
  est:tdirection=(offsetLigne:0;offsetColonne:1);
  nord_ouset:tdirection=(offsetLigne:-1;offsetColonne:-1);
  nord_est:tdirection=(offsetLigne:-1;offsetColonne:1);
  sud_ouest:tdirection=(offsetLigne:1;offsetColonne:-1);
  sud_est:tdirection=(offsetLigne:1;offsetColonne:1);
  dir_hrz:array[0..3]of tdirection=(nord,sud,ouest,est);//ligne 90
  dir_diag:array[0..3]of tdirection=(nord_ouest, nord_est,sud_ouest,sud_est);
  dir_tot:array[0..7]of tdirection=(nord,sud,ouest,est,nord_ouest, nord_est,sud_ouest,sud_est);
 
il me dit : [dcc32 Erreur] Unit2.pas(90): E2029 '(' attendu(e) mais identificateur 'nord' trouvé(e) à la ligne 90, une idée ?

[pprem]

à quoi correspond la ligne 90 et que contient la précédente ?
(je suppose que c'est la ligne 10, mais autant être sûr)

il y a peu de devins dans le coin

[tourlourou]

Bonjour,
L'explication est ici :

Les constantes typées ne peuvent pas intervenir dans des expressions constantes.

NB : c'est la ligne 18 qui était la 90ème, comme indiqué en commentaire.

[Sylvain255]

j'ai mis un commentaire //ligne 90 en commentaire dans le code regarde bien
merci
donc il n'y a pas le choix on doit mettre les valeurs brutes, c'est un peu dommage car c'est moins lisible

[ShaiLeTroll]

Constantes et utilisation de pointeur, profitant du référencement implicite

Au passage, j'ai un peu amélioré l'aspect de la déclaration même si il y a encore quelques faussetés dans le respect du PascalCase, apprenez à écrire un code plus lisible.

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
 
type
  TDirection = record
    offsetLigne: Integer;
    offsetColonne: Integer;
  end;
  PDirection  = ^TDirection;
 
const
  Nord:  TDirection = (offsetLigne: -1; offsetColonne:  0);
  Sud:   TDirection = (offsetLigne:  1; offsetColonne:  0);
  Ouest: TDirection = (offsetLigne:  0; offsetColonne: -1);
  Est:   TDirection = (offsetLigne:  0; offsetColonne:  1);
  NordOuest: TDirection = (offsetLigne: -1; offsetColonne: -1);
  NordEst:   TDirection = (offsetLigne: -1; offsetColonne:  1);
  SudOuest:  TDirection = (offsetLigne:  1; offsetColonne: -1);
  SudEst:    TDirection = (offsetLigne:  1; offsetColonne:  1);
  DirectionCardinaux: array[0..3] of PDirection = (@Nord, @Sud, @Ouest, @Est);
  DirectionCollateraux : array[0..3] of PDirection = (@NordOuest, @NordEst, @SudOuest, @SudEst);
  DirectionTousPoints: array[0..7] of PDirection = (@Nord, @Sud, @Ouest, @Est, @NordOuest, @NordEst, @SudOuest, @SudEst);
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  D: PDirection;
begin
  Memo1.Lines.Add('DirectionCardinaux');
  for D in DirectionCardinaux do
    Memo1.Lines.Add(Format('  offsetLigne: %d, offsetColonne: %d', [D.offsetLigne, D.offsetColonne]));
 
  Memo1.Lines.Add('DirectionCollateraux');
  for D in DirectionCollateraux do
    Memo1.Lines.Add(Format('  offsetLigne: %d, offsetColonne: %d', [D.offsetLigne, D.offsetColonne]));
 
  Memo1.Lines.Add('DirectionTousPoints');
  for D in DirectionTousPoints do
    Memo1.Lines.Add(Format('  offsetLigne: %d, offsetColonne: %d', [D.offsetLigne, D.offsetColonne]));
 
 
end;

[free07]

apprenez à écrire un code plus lisible.

+1

@ Sylvain255 :

car un code de plusieurs lignes sans aucun espace pour permettre de visualiser rapidement les constantes, affectation, valeurs : ça pique les yeux ! Et à la fin de la journée : ça donne pas envie de recommencer

C'est important de prendre de bonnes habitudes

[pprem]

NB : c'est la ligne 18 qui était la 90ème, comme indiqué en commentaire.

je ne vois pas le gris sur fond bleu, mes yeux se focalisent sur le texte en noir, donc autant dire que là, j'risquais pas de la trouver

[pprem]

+1

Surtout qu'un simple Ctrl+D reformate le source et l'aère un peu.

[tourlourou]

je ne vois pas le gris sur fond bleu, mes yeux se focalisent sur le texte en noir, donc autant dire que là, j'risquais pas de la trouver

Ne crois pas que ça m'ait sauté à la figure, ni d'emblée, ni à la première relecture

[Sylvain255]

merci à tous