掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列を使用しないで、変数名を参照する (ID：27030)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function GetA(s: string): string; const Ints: array[0..2] of TIdentMapEntry = ( (Value: 100; Name: 'A1'), (Value: 22; Name: 'A2'), (Value: 333; Name: 'A3')); var ii: Integer; begin if IdentToInt(s, ii, ints) then Result:= IntToStr(ii) else Result:= ''; end; procedure TForm1.Button1Click(Sender: TObject); begin Form1.Caption:= GetA( Edit1.Text ); end; こんなのではどうかな？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.