Непосредственный IF (Immidiate IF)

Автор: Anatoly Podgoretsky

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Immidiate IF - непосредственный IF

Возращает один из результатов, в зависимости от выражения Expr. Результат
может быть любого типа, совместим с Variant

Зависимости: нет
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:   Anatoly Podgoretsky
Дата:        20 апреля 2002 г.
***************************************************** }

function IIF(Expr: Boolean; TrueResult, FalseResult: Variant): Variant;
begin
  if Expr then
    Result := TrueResult
  else
    Result := FalseResult;
end;

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

S := IIF(FileExists('C:\autoexec.bat'), 'Found', 'Not found');
S := IIF(N <> 0), IntToStr(N), 'NULL');
N := IIF(N >= M, M, N);