Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.30;
Скачать: CL | DM;

Вниз

Constant expression violates subrange bounds   Найти похожие ветки 

 
nil_pointer   (2007-09-01 17:19) [0]

Почему это возникает?

procedure test1(const mytest: string);
begin
 Result := IntToStr(mytest) in [0..9, 10000..20000];
end;


 
Джо ©   (2007-09-01 17:27) [1]

Во-первых, Result в процедуре не может быть употреблен.
Во-вторых, IntToStr принимает в качестве аргумента Integer, а на выходе дает Str. А не наоборот.
В-третьих, [0..9, 10000..20000] — set. И:
The range of a set type is the power set of a specific ordinal type, called the base type; that is, the possible values of the set type are all the subsets of the base type, including the empty set. The base type can have no more than 256 possible values, and their ordinalities must fall between 0 and 255.
(с) Хелп.


 
Anatoly Podgoretsky ©   (2007-09-01 17:36) [2]

> Джо  (01.09.2007 17:27:01)  [1]

Три ошибки в одной строке :-)


 
Leonid Troyanovsky ©   (2007-09-01 17:39) [3]


> nil_pointer   (01.09.07 17:19)  

> procedure test1(const mytest: string);


Solve:

function test1(const mytest: Longint): Boolean;
begin
case mytest of
  0..9, 10000..20000:
    Result := True;
else
  Result := False;
end;
end;

if test1(StrToInt("..")) then

--
Regards, LVT.



Страницы: 1 вся ветка

Текущий архив: 2007.09.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
6-1170156869
maxistent
2007-01-30 14:34
2007.09.30
закачка/докачка по ftp/http


2-1188805897
Андрей Пл
2007-09-03 11:51
2007.09.30
Как узнать в консольном приложении имя машины


3-1179810817
DeadMeat
2007-05-22 09:13
2007.09.30
Invalid Typecast


15-1188390465
Dmitriy_010
2007-08-29 16:27
2007.09.30
Проблема с XP Embeded


15-1188915329
savyhinst
2007-09-04 18:15
2007.09.30
Лазарус