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;

@+