•  

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

Создано: 01.08.2010 20:17:25 · Исправлено: 01.08.2010 20:17:25 · Прочтений: 1203

{ **** 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 = Первая строка;