В Делфи 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
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!