1

Como ficaria a seguinte situação utilizando if ternário?

if StrToInt(Edit1.Text) < 30 then
      Edit2.Text := '30'
   else if StrToInt(Edit1.Text) in [30..50] then
      Edit2.Text := '40'
   else
      Edit2.Text := '50'
2
  • 1
    As versões mais recentes receberam o operador ternário ou tu se refere a gambiarra do IfThen?
    – DH.
    Commented 29/04/2016 às 12:27
  • IfThen, apenas para conhecimento. Commented 29/04/2016 às 13:19

3 Respostas 3

2
v = StrToInt(Edit1.Text);

Edit2.Text = IfThen(v < 30, '30', IfThen(v in [30..50], '40', '50'));
2

Em linguagens de programação, a expressão :?, é conhecido por ser um Operador Ternário, varias linguagens o adota, porém em até em sua última versão Seattle 10, o Delphi não adota.

Porém a partir do Delphi7, existe a opção de utilizar o IfThen:

IfThen([Expressão boleana], [Se verdadeiro], [Se falso])

Porém, você não pode fazer isso:

y:= IfThen(x <> 0, 1/x, 0);

Sendo necessário utilizar do jeito tradicional:

if x <> 0 then y := 1/x else y := 0;
-3

server por exemplo: intercalar linhas claras e escurar em um relatório. IfThen(flag=true,flag:=false,flag:=true)

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .