Цитата:
|
Сообщение от Alegun
Наверное правильней будет так условие по if подставлять
Код:
...
if (X in [Xmin..Xmax]) and (Y in [Ymin..Ymax]) then
... |
Так к сожалению нельзя. Тип диапазон ограничен одним байтом.
Например вот такой код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c: Integer;
begin
a := 1;
b := 256;
c := 300;
if a in [b..c] then
ShowMessageFmt('Число %d ВХОДИТ в диапазон %d..%d', [a, b, c])
else
ShowMessageFmt('Число %d НЕ ВХОДИТ в диапазон %d..%d', [a, b, c]);
end; покажет сообщение "
Число 1 ВХОДИТ в диапазон 256..300" хотя очевидно что это не так...