Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > типа Рефакторинг ?

Автор: xapm 27.5.2013, 09:07

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

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

?

Автор: БелАмор 27.5.2013, 15:12

Цитата(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

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

Автор: xapm 10.6.2013, 19:16

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

Автор: Poseidon 11.6.2013, 08:47

Код


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