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

 

пример:

 

Code:

{©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

 

Взято изhttps://forum.sources

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить