Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Удобная функция 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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.11.2020 07:54:20/0.047964096069336/0