Discussion :

[Philippe_Perfect]

Bonjour à tous,

Pour classer et regrouper les photos, j'ai téléchargé photocd.dpr

je sollicite de l'aide car je ne trouve pas de réponse à une erreur de compilation
"[Erreur] UnitMain.pas(193): La partie gauche n'est pas affectable"

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
const
  Depart        : boolean = true;
  ListeCdChange : boolean = false;

procedure TMainForm.ShellTreeViewChange(Sender: TObject; Node: TTreeNode);
var S: string;
begin
  if (PageControl.TabIndex>0) then exit;
  S:=ShellTreeView.SelectedFolder.PathName;
  if S=LabelRep.Caption then exit;
  LabelRep.Caption:=S; LabelRep.Refresh;
  ListeDir.Clear; RefreshChoix(true);
  if (Node=ShellTreeView.Items[0]) and depart then exit;
  try
    ChargeListe(ListeDir,S);
    RefreshChoix(true);
    depart:=false;
  except end;
end;

Comment autoriser la modification de ces constantes ?
je ne trouve pas d'indications dans les tutoriels à ma disposition !

Je travaille avec D7 et W8
Merci pour votre aide et sincères félicitations à toute la communauté. Philippe

[skywaukers]

Bonjour,

disons que les constantes sont par définition ... constantes Elles ne peuvent pas être modifiées une fois déclarées. Pour faire cela il faut utiliser une variable, qui par définition peut-être ...

@++
Dany

[Paul TOTH]

deux solutions:

1) remplacer le mot clé "const" par "var"

2) ajouter avant le mot clé "const" la directive {$J+} ou {$WRITEABLECONST ON}

[Gilbert Geyer]

Bonjour,

Pour modifier une constante :

Code :

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

1
2
3
4
procedure ChangeConst(const Constant; var Value; Size: Integer);
begin
  Move((@Value)^, (@Constant)^, Size);
end;

Testé : Marche avec des constantes du type string ou du type numérique.
Non testé avec des valeurs du type array of

A+.

[skywaukers]

2) ajouter avant le mot clé "const" la directive {$J+} ou {$WRITEABLECONST ON}

Et le mot cle "const" perd alors toute sa signification.... C'est un problème de conception là. Si on doit pouvoir modifier la valeur, il faut une variable, pas une constante

@++
Dany

[Paul TOTH]

Et le mot cle "const" perd alors toute sa signification.... C'est un problème de conception là. Si on doit pouvoir modifier la valeur, il faut une variable, pas une constante

@++
Dany

$J+ reste une possibilité, ça existe pour des raisons historiques: avant Delphi ne permettait pas d'initialiser une variable, il fallait donc déclarer une constante typée qui était modifiable.

Par la suite, Borland a considéré que ce n'était pas très logique et ils ont autorisé l'initialisation des variable et rendu les constantes réellement constantes avec un switch pour assurer la compatibilité.