const <name> : <datentyp> = <wert> und case <name

[omata]

Das geht doch?

Delphi-Quellcode:

const
  test:byte = 99;
begin
  case test of
    99: ;
  end;
end;