Algemeine Enumeration

[glkgereon]

Hi,

Ich habe einige Sets, die ich als String, wie es die Delphi-IDE auch macht, ausgeben möchte.

als beispiel sieht das ganze bisher so aus:

(TJvWindowsArrangeEnum habe ich selbst geschrieben. TJvWindowsArrange ist jetzt set of TJvWindowsArrangeEnum. prinzipiell aber der ursprüngliche Typ.)

Delphi-Quellcode:

  rsSetFormat = '[ %s ]';
  rsSetValDivider = ', ';

function WindowsArrange2String(A: TJvWindowsArrange): String;
const
  cTexts: array [TJvWindowsArrangeEnum] of String = (
    rsDown,rsLeft,rsRight,rsUp,rsBottomLeft,
    rsBottomRight,rsHide,rsTopLeft,rsTopRight
  );
var i: TJvWindowsArrangeEnum;
begin
  Result:=rsEmpty;
  for i:=Low(TJvWindowsArrangeEnum) to High(TJvWindowsArrangeEnum) do
    if i in A then
      Result:=Result+rsSetValDivider+cTexts[i];
  Delete(Result,1,Length(rsSetValDivider));
  Result:=Format(rsSetFormat,[Result]);
end;

nun habe ich aber keine Lust für jedes Set das alles neu zu schreiben, sondern habe mir gedacht, das man das doch zusammenfassen könnte, und zwar in etwa so:

Delphi-Quellcode:

type
  TEnum = Byte;
  TEnumSet = set of TEnum;
  TEnumTexts = array [TEnum] of String;

function Set2String(E: TEnum; S: TEnumSet; Str: TEnumTexts): String;
var i:Integer;
begin
  Result:='';
  for i:=Low(E) to High(E) do
    if i in S then
      Result:=Result+rsSetValDivider+Str[i];
  Delete(Result,1,Length(rsSetValDivider));
  Result:=Format(rsSetFormat,[Result]);
end;

das das ganze aber nicht funktioniert (wär ja auch zu schön gewesen) die frage: wie mache ich es richtig?
ein Fehler ist zB. das ich statt "E: TEnum" eigentlich den Enum-Typen (TJvWindowsArrangeEnum) übergeben müsste

[Dax]

Nutze doch die schöne Unit TypInfo. Mit einer Funktion da drin (frag mich jetzt nicht welche, steht aber paar mal ausführlich erklärt hier in der DP ) kannst du für einen Enum-Wert ganz einfach die String-Repräsentation kriegen.

Beispiel für einen Wrapper:

Delphi-Quellcode:

function EnumValueToString(EnumValue: Integer; Info: Pointer): string;
begin
  Result := GetEnumName(Info, Integer); // ich glaub so war das...
end;

Dann noch der Aufruf:ShowMessage(Integer(rsDown), TypeInfo(TJvWindowsArrange)); PS: So machts die IDE auch

[glkgereon]

Leider hilft mir das nicht weiter.

Das das Programm mehrsprachig ist und bleiben soll, habe ich die Arrays sowieso als Resourcestring hinterlegt.

Mein Problem bleibt ja weiterhin...

Ich hab es schonmal soweit gekürzt...

Delphi-Quellcode:

function Set2String(S: TEnumSet; T: TEnumTexts): String;
var i:TEnum;
begin
  Result:='';
  for i:=Low(TEnum) to High(TEnum) do
    if i in S then
      Result:=Result+rsSetValDivider+T[i];
  Delete(Result,1,Length(rsSetValDivider));
  Result:=Format(rsSetFormat,[Result]);
end;

aber er weigert sich standhaft irgendein Set in ein TEnumSet zu Casten