Получение одной строки из двух (функция подобная IIF в Foxpro)

Автор: Юрий

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение одной строки из двух (функция подобная IIF в Foxpro)

Функция подобная IIF в Foxpro возвращает одно из двух значений

Зависимости: нет
Автор:       Юрий, kynnew@pisem.net, Могилев
Copyright:   собственная
Дата:        26 апреля 2002 г.
***************************************************** }

// возвращает строку

function IIFStr(Expr: Boolean; Par1, Par2: string): string;
begin
  if Expr then
    Result := Par1
  else
    Result := Par2;
end;

Пример использования:

a = 5
IIFStr(a <> 0; 'Первая строка', 'Вторая строка'): string;
Result = Первая строка;