Discussion :

[Charly910]

Bonjour,
J'ai les types :

Code :

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

1
2
3
  TTwainPixelType = (tbdBw, tbdGray, tbdRgb, tbdPalette, tbdCmy, tbdCmyk,
          tbdYuv, tbdYuvk, tbdCieXYZ, tbdUnknown, tbdUnknown1, tbdUnknown2, tbdBgr); 
  TTwainPixelTypeSet = set of TTwainPixelType;

J'ai une fonction qui me renvoie Supported2 de type TTwainPixelTypeSet et Return2 de type TTwainPixelType

je voudrais afficher, dans un ShowMessage, Supported2 et Return2

je n'arrive pas à le faire. Comment le faire ?
Merci

A+
Charly

[ALWEBER]

Bonjour,
J'ai les types :

Code :

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

1
2
3
  TTwainPixelType = (tbdBw, tbdGray, tbdRgb, tbdPalette, tbdCmy, tbdCmyk,
          tbdYuv, tbdYuvk, tbdCieXYZ, tbdUnknown, tbdUnknown1, tbdUnknown2, tbdBgr); 
  TTwainPixelTypeSet = set of TTwainPixelType;

J'ai une fonction qui me renvoie Supported2 de type TTwainPixelTypeSet et Return2 de type TTwainPixelType

je voudrais afficher, dans un ShowMessage, Supported2 et Return2

je n'arrive pas à le faire. Comment le faire ?
Merci

A+
Charly

SI j'ai bien compris ta question tu peux t'inspirer du code suivant :

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
 
type
  TOper = (RCoils, RDiscreteInputs, RHoldingRegisters, RInputRegisters,
    WSingleCoil, WingleRegister, WMultipleCoils, WMultipleRegisters,
    RWMultipleRegisters);
 
  TListOper = set of TOper; ;
 
const
  KOper: array [TOper] of string = ('Read Coils', 'Read Discrete Inputs',
    'Read Holding Registers', 'Read Input Registers', 'Write Single Coil',
    'Write Single Register', 'Write Multiple Coils', 'Write Multiple Registers',
    'Read/Write Multiple Registers');
function GetOper(st1: string): TOper;
 
 
implementation
 
function GetOper(st1: string): TOper;
var
  v1: TOper;
begin
  for v1 := low(TOper) to high(TOper) do
    if KOper[v1] = st1 then
      result := v1;
end;
 
procedure showOper(vg1: TListOper);
var v1: TOper;
begin
  for v1 := low(TOper) to high(TOper) do
    if v1 in vg1 then
      showMessage(KOper[v1])  ;
end;

[Charly910]

Merci ALWEBER, j'ai fait ceci et ça marche très bien :

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
type
  TTwainPixelType = (tbdBw, tbdGray, tbdRgb, tbdPalette, tbdCmy, tbdCmyk,
          tbdYuv, tbdYuvk, tbdCieXYZ, tbdUnknown, tbdUnknown1, tbdUnknown2, tbdBgr);
 
  TLisTTwainPixelType = set of TTwainPixelType;
 
const
  KPixelType: array [TTwainPixelType] of string = ('tbdBw', 'tbdGray', 'tbdRgb', 'tbdPalette', 'tbdCmy', 'tbdCmyk',
          'tbdYuv', 'tbdYuvk', 'tbdCieXYZ', 'tbdUnknown', 'tbdUnknown1', 'tbdUnknown2', 'tbdBgr');
 
function GeTTwainPixelType(st1: string): TTwainPixelType;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function GeTTwainPixelType(st1: string): TTwainPixelType;
var
  v1: TTwainPixelType;
begin
  for v1 := low(TTwainPixelType) to high(TTwainPixelType) do
    if KPixelType[v1] = st1 then
      result := v1;
end;
 
procedure ShowPixelType(vg1: TLisTTwainPixelType);
var
  v1: TTwainPixelType;
  S : String ;
begin
  S := '' ;
  For v1 := low(TTwainPixelType) to high(TTwainPixelType) do
    if v1 in vg1 then  S := S + KPixelType[v1] + ' ; ' ;
  ShowMessage(S)  ;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
Var
vg1: TLisTTwainPixelType  ;
begin
  Vg1 := [tbdGray, tbdBw] ;
  ShowPixelType(vg1) ;
end;

Seul inconvénient, je dois dupliquer la liste des items dans la constante, mais ce n'est pas grave !

A+
Charly

[anapurna]

Salut

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
Uses TypInfo ;
... 
TTwainPixelType = (tbdBw, tbdGray, tbdRgb, tbdPalette, tbdCmy, tbdCmyk,
          tbdYuv, tbdYuvk, tbdCieXYZ, tbdUnknown, tbdUnknown1, tbdUnknown2, tbdBgr); 
....

var
  StrTwainPixelType : String;
begin
  StrTwainPixelType := GetEnumName(TypeInfo(TTwainPixelType),Ord(tbdBw)) ;
  ShowMessage(IntToStr(Ord(tbdBw)) + ' - ' + StrTwainPixelType);


 ///  String To  Enum 
//  TTwainPixelType(GetEnumValue(Typeinfo(TTwainPixelType), value);

[Charly910]

Merci Anapurna, ça marche super et c'est plus simple !

A+
Charly

[Papy214]

TRttiEnumerationType.GetName<TTwainPixelType>(tbdBw);

oups, pas vu le D7 ... j'ai rien dit , désolé

[ShaiLeTroll]

Finalement, ta question n'avait pas déjà une réponse dans [D7] Récupérer les noms de la liste d'un type énumération et Problème d'écriture de tableau statique avec l'utilisation d'un tableau énuméré et d'ailleurs j'avais proposé RTTI typinfo.GetEnumName, tu n'as pas remarqué mais c'est finalement exactement la même problématique dans les deux sujets.

• Pour le besoin initial Enum to String

Si tu utilises toujours TTwainPixelType sans tricherie, l'approche RTTI suggéré par Anapurna est celle que j'utilise souvent.

Sans tricherie, il n'y a pas de risque théorique de dépassement
Cependant si tu triches un peu à moment, par exemple si tu as un "Int To Enum" dans le code, dans ce cas une vérification d'étendue peut être prudente que Int ne soit pas une valeur hors énumération.
Non car on devine tous l'utilisation quelque part de TwainToTTwainPixelType transformant TW_UINT16 en TTwainPixelType via la méthode TTwainSource.GetIPixelType, la valeur hors étendu étant tbdUnknown

• Pour la réciproque String To Enum

Code :

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

function GeTTwainPixelType(st1: string): TTwainPixelType;

je ferais juste attention à la valeur imprévue soit par une valeur hors scope (-1 typiquement) ou une Exception

Version Tableau de chaines

Code :

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

1
2
3
4
5
6
7
8
9
10
function GeTTwainPixelType(const S: string): TTwainPixelType;
begin
  for Result := Low(Result) to High(Result) do
    if KPixelType[Result] = S then
      Exit;
 
  Result := tbdUnknown;
  // raise EConvertError.Create(S);
  // Result := TTwainPixelType(-1);   
end;

Note l'utilisation de Result comme boucle, c'est un des rares cas où c'est possible, IndexOf du TStringList par exemple exploite cette construction
C'est plus concis et évite une variable inutile dans ce cas précis.
Tu peux aussi utiliser Low et High sur la variable au lieu du type, c'est encore plus concis

Version RTTI
la même problématique de valeur imprévue

Code :

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

1
2
3
4
5
6
7
function GeTTwainPixelType(const S: string): TTwainPixelType;
begin
  Result := TTwainPixelType(GetEnumValue(TypeInfo(TTwainPixelType), S));
  if Result = TTwainPixelType(-1) then
     Result := tbdUnknown; 
     //raise EConvertError.Create(S);
end;

Enfin, il existe une autre méthode IdentToInt et IntToIdent couplé à un tableau TIdentMapEntries (voir la gestion du ColorToString et StringToColor)