Удобная функция ifthen

В Делфи 6 (модуль Math) появилась удобная функция ifthen которая соответствует оператору "?" языка С++.
пример:

{©Drkb v.3(2007): www.drkb.ru}

procedure TForm1.Button1Click(Sender: TObject);

var k, i, j: Integer;

begin

 i := 3; j := 2;

 k := ifthen({If}i < j, {Then}i, {Else}k);

End;

Автор feriman
Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...