掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
グローバルな型つき定数の条件付宣言 (ID:20445)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
{$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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.