VPF::типа Рефакторинг ? - Форум программистов

xapm

Дата 27.5.2013, 09:07 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.5.2013

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

Hi,
Подскажите как написать функцию которая привелабы код вида
if b then v:=1 else v:=2;

в
v := XXX(b,[1,2])

?

БелАмор

Дата 27.5.2013, 15:12 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 5
Всего: 17

Цитата(xapm @ 27.5.2013, 10:07

)

v := XXX(b,[1,2])

Код


v := IfThen(b, 1, 2);

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=62020

Только учтите, что два последних параметра должны быть готовыми значениями (константами или переменными), а не вызовами функций, поскольку в противном случае всегда будут вызываться обе функции, а использоваться - результат только одной, что избыточно и непродуктивно.

Это сообщение отредактировал(а) БелАмор - 27.5.2013, 15:13

xapm

Дата 10.6.2013, 19:16 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.5.2013

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

Это не совсем то, точнее совсем не то.
Я где-то читал в книженции по новым фичам XE что появилась некая конструкция которая делает это, вот только какая не помню.

Poseidon

Дата 11.6.2013, 08:47 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Код


function XXX(b: Boolean; ResultArray: array of const): Integer;
begin
  if b then Result:= ResultArray[0].VInteger
  else Result:= ResultArray[1].VInteger;
end;

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

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

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