bug avec des tableaux de record constants

Version imprimable

Code:

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 ?

03/08/2021, 14h17
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 :ptdr:
03/08/2021, 14h32
tourlourou

Bonjour,
L'explication est ici :

Citation:

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.
03/08/2021, 15h11
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

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:

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;

03/08/2021, 16h06
free07

Citation:

Envoyé par ShaiLeTroll

apprenez à écrire un code plus lisible.

+1 :plusser:

@ 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
03/08/2021, 18h27
pprem

Citation:

Envoyé par tourlourou

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 ;)
03/08/2021, 18h28
pprem

Citation:

Envoyé par free07

+1 :plusser:

Surtout qu'un simple Ctrl+D reformate le source et l'aère un peu.
03/08/2021, 19h02
tourlourou

Citation:

Envoyé par pprem

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 :D
04/08/2021, 21h08
Sylvain255

merci à tous