Type "set" et variable "set of" en string ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 :evilred:

Merci

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

Code:

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;

salut

Code:

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

Salut

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

Code:

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

13/11/2008, 11h07
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 ?

Re,

Et comme ça ?

Code:

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;

13/11/2008, 11h34
sjrd
Fonction EnumSetToStr de ma SCL :P

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

1 2 Str := EnumSetToStr(States, TypeInfo(TStates)); // (ou TState à la place de TStates)
13/11/2008, 11h40
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 :mrgreen:

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

salut

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

Code:

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:

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

@+ Phil

13/11/2008, 11h42
sjrd

Citation:

Envoyé par 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 :mrgreen:

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 :roll:

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.
13/11/2008, 11h46
anapurna

salut

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

@+ Phil
13/11/2008, 11h49
Cl@udius

@sjrd

Comment as-tu défini le type TSysByteSet ?
13/11/2008, 11h50
sjrd

Exact, mais à cause de cette ligne :

Code:

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.
13/11/2008, 11h51
sjrd
Citation:

Envoyé par Cl@udius

@sjrd

Comment as-tu défini le type TSysByteSet ?

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

1 2 type TSysByteSet = set of Byte;
C'est le plus grand set possible, en fait.
13/11/2008, 11h54
Cl@udius

Citation:

Envoyé par sjrd

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

Ah d'accord, merci. ;)
13/11/2008, 11h55
phplive

Ha ben voilà ! :king:
13/11/2008, 12h19
anapurna

salut

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

@+ Phil
13/11/2008, 12h53
sjrd

Citation:

Envoyé par anapurna

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.
13/11/2008, 14h20
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
13/11/2008, 15h04
Paul TOTH

Citation:

Envoyé par 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

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" :)

Voir 40 message(s) de cette discussion en une page