Discussion :

[dibak]

Bonjour,
s'il vous plait je voudrais ecrire un fichier entete dans delphi/radsudio 12.
voici l'exemple d'un fichier ecrit en C++ builder et s'appelant test.h

#ifndef ConstantesEtsScolaireH
#define ConstantesEtsScolaireH
//Operation en cours
#define CONSULTATION 0
#define AJOUT 1
#define MODIFICATION 2
#define SUPPRESSION 3
#define EDITION 4
#define VALIDATION 5
#define VALIDER_TOUS 6
#define ACCEPTATION 7

#endif

je voudrais savoir comment ecrire son equivalent en delphi s'il vous plait.
Merci d'avance pour vos reponses.
Dibak

[ALWEBER]

Dans un premier temps

Code :

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

1
2
3
4
5
6
7
8
9
10
 
const
  CONSULTATION   = 0;
  AJOUT          = 1;
  MODIFICATION   = 2;
  SUPPRESSION    = 3;
  EDITION        = 4;
  VALIDATION     = 5;
  VALIDER_TOUS   = 6;
  ACCEPTATION    = 7;

tout dépend de la façon dont tu l'utilises. Il y a d'autres façons avec les SET. Ce code doit être mis dans le DPR de préférence Plus d’infos si tu le souhaites

[dibak]

Dans un premier temps

Code :

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

1
2
3
4
5
6
7
8
9
10
 
const
  CONSULTATION   = 0;
  AJOUT          = 1;
  MODIFICATION   = 2;
  SUPPRESSION    = 3;
  EDITION        = 4;
  VALIDATION     = 5;
  VALIDER_TOUS   = 6;
  ACCEPTATION    = 7;

tout dépend de la façon dont tu l'utilises. Il y a d'autres façons avec les SET. Ce code doit être mis dans le DPR de préférence Plus d’infos si tu le souhaites

Merci ALWEBER pour ta réponse.
Vous voulez dire que si je mets ce code dans le dpr, il sera visible (ces constantes) seront visiɓles dans tout le projet? Si tel ett le cas ça m'arrange provisoirement, mais j'aurais souhaité les mettre dans un fichier a part a inclure au projet.

[dibak]

Dans un premier temps

Code :

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

1
2
3
4
5
6
7
8
9
10
 
const
  CONSULTATION   = 0;
  AJOUT          = 1;
  MODIFICATION   = 2;
  SUPPRESSION    = 3;
  EDITION        = 4;
  VALIDATION     = 5;
  VALIDER_TOUS   = 6;
  ACCEPTATION    = 7;

tout dépend de la façon dont tu l'utilises. Il y a d'autres façons avec les SET. Ce code doit être mis dans le DPR de préférence Plus d’infos si tu le souhaites

Je viens de tester, ta proposition ne cadre pas avec ce que je veux. ces constantes, je vais les utiliser tout au long de mon programme, je ne vais pas les redeclarer dans toutes les form de mon projet quand même, c'est pourquoi, je voulais les mettre dans un fichier dits des constantes et les inclures dans mon projet peut etre en utilisant un uses, je n'en sais pas beaucoup dans delphi et je souhaite qu'on me proposa la meilleure solution.
je vais les (les constantes) affecter tout le temps a des variables.

[SergioMaster]

Bonjour,

il y a plusieurs solutions

créer une unité delphi indépendante (fichier/nouveau/unité delphi)

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
 
unit Unit1;
 
interface
 
implementation
 
const
 
  CONSULTATION   = 0;
  AJOUT          = 1;
  MODIFICATION   = 2;
  SUPPRESSION    = 3;
  EDITION        = 4;
  VALIDATION     = 5;
  VALIDER_TOUS   = 6;
  ACCEPTATION    = 7;
 
end.

mais AMHA une énumération serait pas mal non plus

Code :

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

1
2
type
TActionType = ( CONSULTATION,AJOUT,MODIFICATION,SUPPRESSION,EDITION,VALIDATION,VALIDER_TOUS,ACCEPTATION);

[ALWEBER]

Code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
unit uMesConstantes;
interface
uses
  System.SysUtils, System.Classes;
type
  TType1 = (CONSULTATION, AJOUT, MODIFICATION, SUPPRESSION, EDITION, VALIDATION,
    VALIDER_TOUS);
const
  KType1: array [TType1] of String = ('CONSULTATION', 'AJOUT', 'MODIFICATION',
    'SUPPRESSION', 'EDITION', 'VALIDATION', 'VALIDER_TOUS');

Utilisation exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses uMesConstantes;
procedure TForm1.FormActivate(Sender: TObject);
var
  v1: TType1;
 
begin
  Memo1.Lines.Clear;
  for v1 := low(TType1) to high(TType1) do
    Memo1.Lines.add(KType1[v1] + ' ' + INtToStr(ord(v1)));
end;

Résultat