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

Delphi , Синтаксис , Синтаксис

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

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

пример:

Code: Uses Math;

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

Code: Uses StrUtils;

procedure TfmTelEdit.bAddTelClick(Sender: TObject);

            var s: string;

            begin

              s:=cbTypeTel.Text +': '+ eCountryCode.Text +' ('+  eProviderCode.Text +') '+ eTel.Text +ifthen(eAdvanceTel.Text > '', ' доб.: '+  eAdvanceTel.Text, '') ;

            

              with sgTelList do

                begin

                  if ((RowCount = 1) and (Cells[0,0] = ''))

                    then Cells[0,0] := s

                    else

                    begin

                      RowCount:=RowCount+1;

                      Cells[0,RowCount-1]:=s;

                    end;

                end;

            end;

Автор KAN

Статья Удобная функция ifthen раздела Синтаксис Синтаксис может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-09-19 06:35:26 :: re:Удобная функция ifthen

пользователь: stokito.

Я написал статью посвящённую этой функции и её использованию
http://stokito.blogspot.com/2011/09/delphipascal.html

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Синтаксис ::

Время компиляции файла: 2024-04-24 22:55:34
2024-04-26 09:34:10/0.0031960010528564/0