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

Материал из DRKB

Удобная функция ifthen[править | править код]

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

пример:

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;


Source: http://forum.sources.ru
ID: 00084