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

Вниз

IntToStr и Const   Найти похожие ветки 

 
Sandman25 ©   (2003-11-18 13:48) [0]

Почему компилятор ругается
"Constant expression expected"
на конструкцию
const
TreeType = 20;
sSelect = "select * from table where tree_type = " + IntToStr(TreeType);
Разве IntToStr(const) не есть константное выражение?
Может есть какая-то другая функция?
+ Chr(Ord("0") + TreeType div 10)
+ Chr(Ord("0") + TreeType mod 10)
берет, но тут жесткая привязка к двузначности, да и просто некрасиво.
Писать
+ Chr(Ord("0") + (TreeType div 100000) mod 10)
+ Chr(Ord("0") + (TreeType div 10000) mod 10)
+ Chr(Ord("0") + (TreeType div 1000) mod 10)
+ Chr(Ord("0") + (TreeType div 100) mod 10)
+ Chr(Ord("0") + (TreeType div 10) mod 10)
+ Chr(Ord("0") + TreeType mod 10)
не рекомендуется и не хочется.
Заводить еще одну константу sTreeType = "20"?


 
panov ©   (2003-11-18 13:51) [1]

const
TreeType:integer = 20;


 
Sandman25 ©   (2003-11-18 13:54) [2]

[1] panov © (18.11.03 13:51)

Не помогло :(


 
serge   (2003-11-18 14:00) [3]

The compiler expected a constant expression here, but the expression it found turned out not to be constant.

program Produce;
const
Message = "Hello World!";
WPosition = Pos("W", Message);
begin
end.

The call to Pos is not a constant expression to the compiler, even though its arguments are constants, and it could in principle be evaluated at compile time.

program Solve;
const
Message = "Hello World!";
WPosition = 7;
begin
end.

So in this case, we just have to calculate the right value for WPosition ourselves.


 
Sandman25 ©   (2003-11-18 14:04) [4]

[3] serge (18.11.03 14:00)

Спасибо. F1 я нажать не догадался :)


 
serge   (2003-11-18 14:05) [5]

:)



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
1-89815
Stah
2003-11-16 00:30
2003.11.27
Выплывающая панель


6-90050
Beglec
2003-09-30 00:05
2003.11.27
Ошибка при передаче файла


3-89759
uu
2003-11-07 18:50
2003.11.27
table


4-90172
AGGRESSOR
2003-10-02 12:13
2003.11.27
Undeclared identifier: AbnormalTermination


7-90146
Spinx
2003-09-16 01:11
2003.11.27
Перенос Systray a в свое приложене