Problem mit Enumeration

[Schlingel]

@Blup

Danke für den Hinweis, ist aber nicht relevant da das "Random(x)" aus einer DB eingelesen wird und im Code dann die Bedeutung der einzelnen Bits erfasst wird.

-> war nur eine beispielhafte Darstellung meines Problems.

In der Application siehts dann so aus:

Delphi-Quellcode:

 
      /// ----------------------------------------------------------------------------
      /// Present
      /// ----------------------------------------------------------------------------
      if (Get_a_Bit(StaPar.FDTable.FieldByName(FldStaHanID).AsInteger, Byte(StaPre)) = True) then
      begin
        Bmp.Canvas.Pen.Width := 1;
        if (StaPar.FDTable.FieldByName(FldStaHigReaLin_5b).AsBoolean = False) then
        begin
          Bmp.Canvas.Pen.Color := clWhite;
          Bmp.Canvas.Pen.Style := psSolid;
        end
        else
        begin
          Bmp.Canvas.Pen.Color := ContrastColor(ColSty.BackColor);
          Bmp.Canvas.Pen.Style := psDot;
        end;

Grüße

Schlingel