Цитата:
|
Сообщение от Rokuell
В большинстве случаев глючит не это, а то, что находится между креслом и монитором. 
MAcK Ошибка - в неправильном использовании оператора in
По правилам, он должен использоваться для проверки вхождения элемента в к.л. множество, а не для проверки вхождения числа в диапазон.
Тебе следует переписать второе условие:
Код:
1 | if ( StrToInt(crS.dbNum) >= dm.cdsClaimDb1.AsInteger ) and ( StrToInt(crS.dbNum) <= StrToInt(dbLast) ) then
|
Заметка на счёт множества : оно не может содержать более 255 элементов, например этот код нормально выполняется:
Код:
1 2 3 4 5 6 7 8 | var a,b,c:integer;
begin
a:= 50; b:=10; c:=100;
if a in [b..c] then Writeln('In')
else Writeln('Out');
Readln;
end.
|
А вот этот вызовет ошибку "Range check error"
Код:
1 2 3 4 5 6 7 8 | var a,b,c:integer;
begin
a:= 500; b:=100; c:=1000;
if a in [b..c] then Writeln('In')
else Writeln('Out');
Readln;
end.
|
|
Спасибо за объяснения - не знал про лимит диапазона для in.
24.03.2010, 10:23
MAcK 
Древовидный вид