Discussion :

[Limmershin]

Bonjour.

Une chtite question :

Dans le cadre des types énumérés non standards, la fonction ord renvoi la valeur ordinal d'une des valeurs énumérées. Existe t-il une fonction qui fait l'inverse ?

Pour être plus clair :

Code :

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

1
2
3
4
5
6
7
 
 
type tjour = (lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche);
 
...
 
ord(mardi) = 1

En partant de ce code, existe t-il une fonction qui me renverra mardi quand je lui donnerai 1 comme paramètre ?

J'ai bien-sûr essayer chr

Merci l'ami.

[droggo]

Coa,

Si tu espères recevoir une chaîne "mardi", alors la réponse est non.

[Limmershin]

Non non, mardi n'est pas une chaine...

Mardi est l'une des valeurs que peut prendre une variable de type tjour.

[batyann811]

Que veux tu dire par 'types énumérés non standards' ? Ton exemple de type énuméré me semble assez classique non ?

Pour les conversions tu peux faire ça :

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
program TestEnum;
 
{$mode objfpc}{$H+}
 
uses TypInfo;
 
type
  TJour=(lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche);
 
 
function ToString(Jour: TJour): String;
begin
  Result:=GetEnumName(TypeInfo(TJour), integer(Jour));  
end;  
 
var 
  Jour: TJour;
begin 
  Jour:=TJour(2); // Entier vers enum
 
  WriteLn( ToString(Jour) ); // Enum vers chaîne
end.

La conversion vers une chaîne ne marche qu'avec freepascal et delphi à priori.

[Dr.Who]

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit {unitname};
 
interface
 
uses SysConst;
 
{$DEFINE SundayAsFirstDay}
{$IF defined(FDC) or (RTLVersion >= 18.5)}
  {$DEFINE CANINLINE}
{$IFEND}
 
type
  TDays = (
  {$IFDEF SundayAsFirstDay}
    dSunday=1,
    dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday
  {$ELSE}
    dMonday=1,
    dTuesday, dWednesday, dThursday, dFriday, dSaturday,  dSunday
  {$ENDIF}
  );
const
  DaysShortNames : array[TDays] of string = (
  {$IFDEF SundayAsFirstDay}
    SysConst.SShortDayNameSun, SysConst.SShortDayNameMon, SysConst.SShortDayNameTue,
    SysConst.SShortDayNameWed, SysConst.SShortDayNameThu, SysConst.SShortDayNameFri,
    SysConst.SShortDayNameSat
  {$ELSE}
    SysConst.SShortDayNameMon, SysConst.SShortDayNameTue, SysConst.SShortDayNameWed,
    SysConst.SShortDayNameThu, SysConst.SShortDayNameFri, SysConst.SShortDayNameSat,
    SysConst.SShortDayNameSun
  {$ENDIF}
  );
 
  DaysLongNames : array[TDays] of string = (
  {$IFDEF SundayAsFirstDay}
    SysConst.SLongDayNameSun, SysConst.SLongDayNameMon, SysConst.SLongDayNameTue,
    SysConst.SLongDayNameWed, SysConst.SLongDayNameThu, SysConst.SLongDayNameFri,
    SysConst.SLongDayNameSat
  {$ELSE}
    SysConst.SLongDayNameMon, SysConst.SLongDayNameTue, SysConst.SLongDayNameWed,
    SysConst.SLongDayNameThu, SysConst.SLongDayNameFri, SysConst.SLongDayNameSat,
    SysConst.SLongDayNameSun
  {$ENDIF}
  );
 
function DayToInt(aDay: TDays): integer; {$IFDEF CANINLINE}inline;function {$ENDIF}
function IntToDay(aInt: integer): TDays; {$IFDEF CANINLINE}inline;{$ENDIF}
function DayLongName(aDay: TDays): string; {$IFDEF CANINLINE}inline;{$ENDIF}
function DayShortName(aDay: TDays): string; {$IFDEF CANINLINE}inline;{$ENDIF}
 
implementation
 
function DayToInt(aDay: TDays): integer; 
begin
  result := integer(aDay);
end;
 
function IntToDay(aInt: integer): TDays;
begin
  result := TDays(aInt);
end;
 
function DayLongName(aDay: TDays): string; 
begin
  result := DaysLongNames[aDay];
end;
 
function DayShortName(aDay: TDays): string;
begin
  result := DaysShortNames[aDay];
end;
 
end.

[Limmershin]

Apparemment, je ne me suis pas bien exprimé, parce que personne n'a bien compris la question.

Cela dit, la réponse se trouvait quand-même dans l'un de vos posts.

So, thank you very much

Cya