複数のデータを比較するには？ (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 です。 よろしくお願いします。