Удобная функция ifthen
Falk0ner, вс, 06/07/2008 - 15:34.
В Делфи 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;
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
Отправить комментарий