文字列から変数を取り出せる？ (ID:16170)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちわ エディットボックスに文字列が入って場合に その文字列を表示させ もし定数と同じだったら 定数を表示させるみたいな処理を作りたいんですけど 文字列から定数とか変数を取り出す関数とかってありますか？ こんな感じに進めてみたんですけど IF文だと定数が増えた時に大変だと思って(^^;; 初心者の質問ですいませんが どなたか教えていただけないでしょうか？ unit Unit1; const Error='エラーが発生しました'; Success='成功しました'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='Error' then begin Showmessage(Error); end else begin if Edit1.Text ='Success' then begin ShowMessage(Success); end else begin ShowMessage(Edit1.text); end; end; end; end.