Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Вычисления



Вернуться к списку функций
 Immidiate IF - непосредственный IF

 Прислал: Anatoly Podgoretsky (Johvi) ( 20 апреля 2002 г. )
©  Anatoly Podgoretsky
 Описание:
Возращает один из результатов, в зависимости от выражения Expr. Результат
может быть любого типа, совместим с Variant

 Зависимости:
нет

 Ограничения:
Проверено с Д3-Д5

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> 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);


Вернуться к списку функций

Наверх ▲