Discussion :

[phplive]

Bjr

j'aimerais pouvoir convertir des types énumérés ainsi que des variables de type ensemble en chaîne

Bref si j'écris

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
type
  TState = ();
  TStates = set of TState;
 
 
var
  States : TStates;
  Txt : String;
begin
  States := [sModified,sNew];
 
  Txt = convert(TState); 
  // convert() doit retourner "[sNew,sModified,sLoaded]"
 
  Txt = convert(States); 
  // convert() doit retourner "[sNew,sModified]"   
 
end;

Existe-t-il des fonctions en Delphi 7 ?

Y'a bien SetToString dans TypInfo mais elle ne fonctionne pas comme je voudrais

Merci

[Paul TOTH]

je en sais pas s'il y a plus simple, mais je me souviens avoir codé un truc générique pour cela...

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
 
function FlagsToString(Flag:cardinal; Names:array of string):string;
var
 i : integer;
begin
 Result:='';
 i:=0;
 while Flag <>0 do begin
  if (Flag and (1 shl i))<>0 then begin
   Result:=Result+','+Names[i];
   dec(Flag,1 shl i);
  end;
  inc(i);
 end;
 if Result='' then 
  Result:='[]' 
 else begin
  Result[1]:='[';
  Result:=Result+']';
 end;
end;
 
const
 StateNames:array[TState]=(
 'sNew','sModified','sLoaded'
 );
begin
 Tx:=FlagsToString(ord(States),StateNames);
end;

[anapurna]

salut

Code :

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

1
2
3
4
5
6
7
8
 
uses TypeInfo;
...
begin
 for AState:=Low(TStates) to High(TStates) do
      if AState in States then
         st := st + GetEnumName(TypeInfo(TStates), Integer(AState)) + ' ';
end;

@+ Phil

[Cl@udius]

Salut

Dans le même esprit qu'anapurna, je verrais une fonction comme celle-ci:

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
uses
  TypInfo;
 
function StatesToString(AStates: TStates): string;
var
  AState: TState;
begin
  Result := '';
  for AState := Low(TState) to High(TState) do
    if AState in AStates then
    begin
      if Result <> '' then
        Result := Result + ', ';
      Result := Result + GetEnumName(TypeInfo(TState), Ord(AState));
    end;
  Result := '[' + Result + ']';
end;

@+ Cl@udius

[phplive]

Low() et High() ne fonctionnent pas avec les types énumérés :
erreur Types incompatibles

Oups : autant pour moi ça fonctionne j'avais mis TStates au lieu de TState

Par contre y'aurait pas un moyen de faire ça de façon générique valable quelquesoit le type ?

[Cl@udius]

Re,

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
function EnumToString: string;
var
  I: Integer;
begin
  Result := '[';
  for I := Ord(Low(TState)) to Ord(High(TState)) do
    Result := Result + GetEnumName(TypeInfo(TState), I) + ', ';
  SetLength(Result, Length(Result) - 2);
  Result := Result + ']';
end;

@+

[sjrd]

Fonction EnumSetToStr de ma SCL

C'est générique pour n'importe quel type à base de RTTI (même pour des set of Byte, d'ailleurs )

Code :

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

1
2
Str := EnumSetToStr(States, TypeInfo(TStates));
// (ou TState à la place de TStates)

[phplive]

Oui c'est bon

Par contre y'aurait pas un moyen de faire ça de façon générique valable quelquesoit le type ?

je sais je me répète

Donc un mix de plusieurs solutions sans utiliser StateNames ni directement TState ?

D'après le code trouvé dans TypInfo ça semble réalisable non ? Quitte à passer un PTypeInfo

[anapurna]

salut

pour la genericite il faut declarer le type ensemble du type
typeinfo

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
 
 
uses
  SysUtils, TypInfo;
 
function GetOrdValue(Info: PTypeInfo; const SetParam): Integer;
begin
  Result := 0;
 
  case GetTypeData(Info)^.OrdType of
    otSByte, otUByte:
      Result := Byte(SetParam);
    otSWord, otUWord:
      Result := Word(SetParam);
    otSLong, otULong:
      Result := Integer(SetParam);
  end;
end;
 
 
function SetToString(Info: PTypeInfo; const SetParam; Brackets: Boolean): AnsiString;
var
  S: TIntegerSet;
  TypeInfo: PTypeInfo;
  I: Integer;
begin
  Result := '';
 
  Integer(S) := GetOrdValue(Info, SetParam);
  TypeInfo := GetTypeData(Info)^.CompType^;
  for I := 0 to SizeOf(Integer) * 8 - 1 do
    if I in S then
    begin
      if Result <> '' then
        Result := Result + ',';
      Result := Result + GetEnumName(TypeInfo, I);
    end;
  if Brackets then
    Result := '[' + Result + ']';
end;

utilisation :

Code :

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

str := function SetToString(TypeInfo(TState),State,true) ;

@+ Phil

[sjrd]

Oui c'est bon

Par contre y'aurait pas un moyen de faire ça de façon générique valable quelquesoit le type ?

je sais je me répète

Donc un mix de plusieurs solutions sans utiliser StateNames ni directement TState ?

D'après le code trouvé dans TypInfo ça semble réalisable non ? Quitte à passer un PTypeInfo

Ben euh, c'est exactement ce que je proposais

Edit : et c'est valable pour n'importe quelle taille d'ensemble. La version d'anapurna ne fonctionne pas pour les ensemble de plus de 32 bits.

[anapurna]

salut

un ensemble ne peut pas depasser 255 si mais souvenir sont bon

@+ Phil

[Cl@udius]

@sjrd

Comment as-tu défini le type TSysByteSet ?

[sjrd]

Exact, mais à cause de cette ligne :

Code :

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

Integer(S) := GetOrdValue(Info, SetParam);

Tu supposes que ton set fait la taille d'un Integer, ce qui n'est pas vrai. Déjà un TIntegerSet est stocké sur 32 octets (= 256 valeurs possibles / 8 bits par octet). Ensuite la taille de SetParam peut varier sensiblement entre 1 et 32 octets.

[sjrd]

@sjrd

Comment as-tu défini le type TSysByteSet ?

Euh en fait c'est par analogie au TSysCharSet, c'est juste :

Code :

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

1
2
type
  TSysByteSet = set of Byte;

C'est le plus grand set possible, en fait.

[Cl@udius]

C'est le plus grand set possible, en fait.

Ah d'accord, merci.

[phplive]

Ha ben voilà !

[anapurna]

salut

la methode reprend 95% du code de la rtti
la plus grosse modif est le GetOrdValue

@+ Phil

[sjrd]

la methode reprend 95% du code de la rtti

RTTI <> l'unité TypInfo. Là tu parles de l'unité TypInfo.

Et justement la routine SetToString de TypInfo ne gère pas les ensembles plus grands que 32 bits, c'est pour ça que j'ai récrit la mienne.

[anapurna]

salut

mais si j'ai bien lu ta methode tu ne dépasse pas non plus les 256 possibilité
je vois pas bien la différence mis a part bien sur la façon dont c'est écrit

@+ Phil

[Paul TOTH]

salut

mais si j'ai bien lu ta methode tu ne dépasse pas non plus les 256 possibilité
je vois pas bien la différence mis a part bien sur la façon dont c'est écrit

@+ Phil

ma méthode est la meilleur voila tout Surtout qu'elle permet d'utiliser des libellés indépendant des noms internes de la classe, elle fonctionne aussi pour des champs de bits qui ne sont pas des "set of"