VPF::Как в разделе const заставить работать ф-ции

Delphist

Дата 25.9.2008, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Скажите, пожалуйста, можно ли как-нить в разделе const, делать вещи типа:

Код


const
  MAX_NUM = 200;
  FLD_ = '_';
  MyConst = FLD_ + IntToStr(MY_NUM);

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Poseidon

Дата 25.9.2008, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Чот не понятно зачем? Ну делай так и не выдумывай себе проблем:

Код


const
  MyConst = '_200';

правда там у тя MAX_NUM и MY_NUM. Но, думаю, это ты просто опечатался...

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Delphist

Дата 25.9.2008, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Poseidon @ 25.9.2008, 11:51

)

Чот не понятно зачем? Ну делай так и не выдумывай себе проблем:

Согласен, пример мой слишком надуманный по этому ценности особо не представляет, объясню на более конкретном примере, у меня есть несколько констант ID1, ID2, ID3
и по коду во многих местах встречается такая фигня

Код


if (FieldName = FLD_+IntToStr(ID1)) or (FieldName = FLD_+IntToStr(ID2)) then
...

а хотелось бы

Код


const
 fnID1 = FLD_+IntToStr(ID1);
 fnID2 = FLD_+IntToStr(ID2);
...
if (FieldName = fnID1) or (FieldName = fnID2) then
...

Конечно, можно было бы просто для ID1, ID2,... создать еще и их string'и

Код


const
 s_ID1 = '1';
 s_ID2 = '209'

 fnID1 = FLD_+s_ID1;
 fnID2 = FLD_+s_ID2;

но этот способ меня не устраивает.

--------------------

Rennigth

Дата 25.9.2008, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Никак. и правильно...

--------------------

(* Honesta mors turpi vita potior *)

CodeMonkey

Дата 25.9.2008, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(Delphist @ 25.9.2008, 11:11

)

а хотелось бы

Опасным путём идёте, товарищ smile

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Delphist

Дата 25.9.2008, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(CodeMonkey @ 25.9.2008, 12:32

)

Опасным путём идёте, товарищ

А причем здесь ваща статейка, ты думаешь я ошибусь в значении переменной? Мне просто нужно как-то заставить работать мою идею в разделе const

--------------------

Poseidon

Дата 25.9.2008, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Delphist @ 25.9.2008, 11:11

)

Конечно, можно было бы просто для ID1, ID2,... создать еще и их string'и

Что-то мне кажется, что в приведенном выше коде константы fnID1 и fnID2 как раз "их string'и". Т.е. вместо приведенного "хочу так":

Код


const
 fnID1 = FLD_+IntToStr(ID1);
 fnID2 = FLD_+IntToStr(ID2);
...
if (FieldName = fnID1) or (FieldName = fnID2) then
...

делаем так:

Код


const
ID1 = 1; // предположим
ID2 = 2; // тоже предположим
FLD_ = '_' ; // ну не знаю что у тя там

fnID1 = '_1';
fnID2 = '_2';
...
if (FieldName = fnID1) or (FieldName = fnID2) then
...

имеем те же самые "новые" константы fnID1 и fnID2 в которых у нас то, что надо.

Это сообщение отредактировал(а) Poseidon - 25.9.2008, 12:18

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 25.9.2008, 12:18 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не будут функции "работать" в разделе const.
Есть ограниченный набор системных функций, которые компилятор знает лично и может их выполнить на этапе компиляции.
Но все эти функции находятся в system. И их немного.
Все процие функции компилятор выполнять не станет - они работают только в процессе выполнения программы.
Поэтому просто создай переменную и задай ей значение на этапе инициализации программы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »