Непосредственный IF (Immidiate IF)Delphi , Синтаксис , СинтаксисНепосредственный 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); Статья Непосредственный IF (Immidiate IF) раздела Синтаксис Синтаксис может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |