グローバルな型つき定数の条件付宣言

const 2006-03-10 04:20:44 No: 20444

グローバルな型つき定数を
const CRYO:integer=59 と宣言しています。
プログラムの実行時が2006.3.31以降の場合は
const CRYO:integer=42 と宣言したいのですが、
現時点においてどのように記述しておけばよいのですか？

if 今日>'2006/03/31' then const CRYO:integer=42 else const CRYO:integer=59 ?

igy 2006-03-11 00:06:25 No: 20445

{$J+} コンパイラ指令が有効な状態でコンパイルし、

宣言は
const CRYO:integer=59;
にして、
フォームのOnCreateイベントあたりで値を変更するのではダメですか。

procedure TForm1.FormCreate(Sender: TObject);
begin
    if Date >= StrToDate('2006/03/31') then
        CRYO := 42
    else
        CRYO := 59;
end;