掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のデータを比較するには？ (ID:39358)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すべての値が同じという条件ならば、配列の最初の値を他の要素と比較するだけで良いのではないでしょうか。 下の例だと値が0より大きいかの判定も合わせて行っているのでiが0の時の比較が無駄ですが、まぁこのくらいなら効率に影響ないよね…ということで。 function IsEqualValue(iValue: array of Integer): Boolean; var i: Integer; begin Result := True; for i := 0 to High(iValue) do begin if (iValue[i] <= 0) or (iValue[0] <> iValue[i]) then begin Result := False; Exit; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var d1, d2, d3, d4: Integer; begin d1 := 3; d2 := 0; d3 := 3; d4 := 3; if (IsEqualValue([d1, d2, d3, d4])) then begin ShowMessage('同じ'); end else begin ShowMessage('違う'); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.