掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のデータを比較するには？ (ID:39354)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); var Error: Boolean; d1, d2, d3, d4: Integer; begin d1 := 3; d2 := 0; d3 := 3; d4 := 3; Error := False; if (d1 > 0) and (d2 > 0) and (d1 <> d2) then Error := True; if (d1 > 0) and (d3 > 0) and (d1 <> d3) then Error := True; if (d1 > 0) and (d4 > 0) and (d1 <> d4) then Error := True; if (d2 > 0) and (d3 > 0) and (d2 <> d3) then Error := True; if (d2 > 0) and (d4 > 0) and (d2 <> d4) then Error := True; if (d3 > 0) and (d4 > 0) and (d3 <> d4) then Error := True; if Error then Showmessage('データが一致しません') else Showmessage('データが一致しました'); end; 例えば、上記コードのように、複数のデータを比較したい場合、 比較対象が増えると比較の式が増えてしまい困っています。 何か簡潔な式で表現出来ないものでしょうか？ Delphi 2010 WinXP です。 よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.