[MAcK]

На второй строке появляется ошибка:

Код:

if IsNumeric(crS.dbnum) and IsNumeric(dbLast) and IsNumeric(dm.cdsClaimDb1.AsString) then
if ( StrToInt(crS.dbNum) in [dm.cdsClaimDb1.AsInteger..StrToInt(dbLast)]) then // тут

Кто знает почему?

[NIch]

Такая ошибка возникает когда выходишь за пределы массива или обрашаешься к элементу за пределами массива...

[MAcK]

Сообщение от NIch

Такая ошибка возникает когда выходишь за пределы массива или обрашаешься к элементу за пределами массива...

Нет там у меня масива, тем более что первый if он проходит на ура + личнопросмотрел, что там только цифры (0-9)

[lmikle]

Попробуй в настройках проекта отключить эту проверку и прогнать выполнение. Иногда это дело глючит.

[Rokuell]

Сообщение от lmikle

Попробуй в настройках проекта отключить эту проверку и прогнать выполнение. Иногда это дело глючит.

В большинстве случаев глючит не это, а то, что находится между креслом и монитором.



MAcK Ошибка - в неправильном использовании оператора in
По правилам, он должен использоваться для проверки вхождения элемента в к.л. множество, а не для проверки вхождения числа в диапазон.

Тебе следует переписать второе условие:

Код:

if ( StrToInt(crS.dbNum) >= dm.cdsClaimDb1.AsInteger ) and ( StrToInt(crS.dbNum) <= StrToInt(dbLast) ) then

Заметка на счёт множества : оно не может содержать более 255 элементов, например этот код нормально выполняется:

Код:

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"

Код:

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.

[MAcK]

Сообщение от Rokuell

В большинстве случаев глючит не это, а то, что находится между креслом и монитором.



MAcK Ошибка - в неправильном использовании оператора in
По правилам, он должен использоваться для проверки вхождения элемента в к.л. множество, а не для проверки вхождения числа в диапазон.

Тебе следует переписать второе условие:

Код:

if ( StrToInt(crS.dbNum) >= dm.cdsClaimDb1.AsInteger ) and ( StrToInt(crS.dbNum) <= StrToInt(dbLast) ) then

Заметка на счёт множества : оно не может содержать более 255 элементов, например этот код нормально выполняется:

Код:

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"

Код:

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.