数値の期間重複判定について (ID:149575)

名前

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

本文 こうかな function XXX(Value11,Value12,Value21,Value22: Integer): Boolean; begin Result := False; if (Value11 <= Value21) and (Value21 <= Value12) then Result := True; if (Value11 <= Value22) and (Value22 <= Value12) then Result := True; end; var I,J: Integer; B: Boolean; V1: array[0..3] of TPoint; B := False; for I:=0 to 3 do begin for J:=0 to 3 do begin if I<>J then begin B :=B or XXX (V1[I].X,V1[I].Y,V1[J].X,V1[J].Y); end; end; end;