[gelöst] Best Practice für Set Of

[Michl]

Hallo Allerseits,

ich habe mal eine Frage für folgendes Problem:

Ich definiere mir im Prinzip ein "Set Of" doppelt, damit ich mir die übergebenen Parameter als String (notwendig für Log) ausgeben lassen kann. Gibt es eine bessere Lösung?:

Code: Alles auswählen

const
  tNone = 0;
  tTry  = 1;
  tDo   = 2;
 
  TestFlagStr: Array[tNone..tDo] of ShortString = (
    'None',
    'Try',
    'Do');
 
type
  TTestFlag = (
    tfNone,
    tfTry,
    tfDo);
  TMyFlags = Set of TTestFlag;
 
...
 
procedure TForm1.MyProc(aFlag: TMyFlags);
var
  Flag: TTestFlag;
  s: String;
begin
  s:='';
  for Flag in aFlag do case
    Flag of
      tfNone: s:=s + TestFlagStr[tNone] + ', ';
      tfTry:  s:=s + TestFlagStr[tTry]  + ', ';
      tfDo:   s:=s + TestFlagStr[tDo]   + ', ';
    end;
  Caption:=s;
end;                         

[wp_xyz]

Ich definiere mir im Prinzip ein "Set Of" doppelt, damit ich mir die übergebenen Parameter als String (notwendig für Log) ausgeben lassen kann. Gibt es eine bessere Lösung?:

Natürlich: GetEnumName() aus TypInfo

Code: Alles auswählen

 
uses
  TypInfo;
 
function FlagToStr(AFlag: TTestFlag): String;
begin
  Result :=  GetEnumName(TypeInfo(TTestFlag), ord(AFlag));
end;
 

[Michl]

Funktioniert! Ist nur unwesentlich langsamer, als mein bisheriges Vorgehen. Werde ich entsprechend umsetzen.

Danke!