''case erwartet Konstantenausdruck

[Codehunter]

Moin!

Ich steh grad etwas auf dem Schlauch. Der Compiler mäkelt einen fehlenden Konstantenausdruck an, der aber eine Konstante ist:

Delphi-Quellcode:

unit server_capabilities;

interface

type
  TServerBranch = (sbOther, sbMariaDB, sbMySQL);
  TServerFeature = Integer;
  TServerMutableString = Integer;
  TServerVersion = Integer;

const
  SRVFT_USER_ROLES: TServerFeature = $100001;

  SRVMS_PASSWORD_COLUMN: TServerMutableString = $200001;

type
  TServerCapabilities = class
  private
    FServerBranch: TServerBranch;
    FServerVersion: TServerVersion;
  public
    constructor Create(Branch: TServerBranch; Version: TServerVersion); virtual;
    function HasFeature(const AFeature: TServerFeature): Boolean; virtual;
    function MutableString(const AMutableString: TServerMutableString): string; virtual;
  end;

implementation

{ TServerCapabilities }

constructor TServerCapabilities.Create(Branch: TServerBranch;
  Version: TServerVersion);
begin
  FServerBranch:= Branch;
  FServerVersion:= Version;
end;

function TServerCapabilities.HasFeature(
  const AFeature: TServerFeature): Boolean;
begin
  Result:= FALSE;
  case FServerBranch of
    sbMariaDB:
    begin
      case AFeature of
        SRVFT_USER_ROLES: // <-- [dcc32 Fehler] server_capabilities.pas(45): E2026 Konstantenausdruck erwartet
          Result:= (FServerVersion >= 100005);
      end;
    end;

    sbMySQL:
    begin
      case AFeature of
        SRVFT_USER_ROLES: // <-- [dcc32 Fehler] server_capabilities.pas(45): E2026 Konstantenausdruck erwartet
          Result:= (FServerVersion >= 80000);
      end;
    end;
  end;
end;

function TServerCapabilities.MutableString(
  const AMutableString: TServerMutableString): string;
begin
  Result:= '';
  case FServerBranch of
    sbMariaDB:
    begin
      case AMutableString of
        SRVMS_PASSWORD_COLUMN: // <-- [dcc32 Fehler] server_capabilities.pas(45): E2026 Konstantenausdruck erwartet
          Result:= 'Password';
      end;
    end;

    sbMySQL:
    begin
      case AMutableString of
        SRVMS_PASSWORD_COLUMN: // <-- [dcc32 Fehler] server_capabilities.pas(45): E2026 Konstantenausdruck erwartet
        begin
          if FServerVersion >= 50706 then
            Result:= 'authentication_string'
          else
            Result:= 'password';
        end;
      end;
    end;
  end;
end;

end.

[TRomano]

Nach einem kurzen Blick sehe ich typisierte Konstanten und mit denen geht das nicht !

[Codehunter]

Zitat von TRomano:

Nach einem kurzen Blick sehe ich typisierte Konstanten und mit denen geht das nicht !

Nach einem kurzen Blick auf Kalender und Uhr stelle ich fest: Es ist Montag Morgen und der Koffeinspiegel ist im Keller

Danke, Problem gelöst!

[himitsu]

Jupp, typisierte Konstanten sind eigentlich "nur" schreibgeschützte Variablen, aber Nichttypisierte ...

Delphi-Quellcode:

const
  SRVFT_USER_ROLES = TServerFeature($100001);

  SRVMS_PASSWORD_COLUMN = TServerMutableString($200001);

18 Uhr in China, aber die haben eh gade alle gleichzeitig ihren einwöchigen Jahresurlaub zum Jahresanfang, also passt doch ... niemand denkt, vorallem da sie den Anfang schonwieder um 2 Monate verpasst haben.

[Codehunter]

Zitat von himitsu:

Jupp, typisierte Konstanten sind eigentlich "nur" schreibgeschützte Variablen, aber Nichttypisierte ...

Delphi-Quellcode:

const
  SRVFT_USER_ROLES = TServerFeature($100001);

  SRVMS_PASSWORD_COLUMN = TServerMutableString($200001);

Ich nehme die Tatsache, dass das so ist, einfach mal als gegeben hin Obwohl es sich auf den ersten Blick nicht logisch erschließt.

Zitat von himitsu:

18 Uhr in China, aber die haben eh gade alle gleichzeitig ihren einwöchigen Jahresurlaub zum Jahresanfang, also passt doch ... niemand denkt, vorallem da sie den Anfang schonwieder um 2 Monate verpasst haben.

Und sind in diesem Jahr auf den Hund gekommen

[Uwe Raabe]

Zitat von Codehunter:

Obwohl es sich auf den ersten Blick nicht logisch erschließt.

Das ist aus Kompatibilitätsgründen für Programme mit {$J+} gedacht, bei der solche typisierten Konstante beschreibbar und somit eigentlich initialisierte, globale Variablen waren. Faktisch werden sie vom Compiler immer noch so implementiert. Lediglich das Beschreiben ist mit {$J-} nicht mehr erlaubt.