if ternário em Delphi

Bem pessoal, mais uma função, mas dessa vez não nativa, que ajuda na hora da programação.
Ao invés de ficar fazendo vários if then else, basta substituí-los pela função ifternario.
Um exemplo.

function ifternario(condicao: boolean; restrue,resfalse:variant):variant;
begin
if condicao then
result:=restrue
else
result:=resfalse;
end;

procedure form1.button1OnClick(Sender:Variant);

var

resposta : string;

begin

resposta:=ifternario(1>2,’Sim’,’Não’);

ShowMessage(resposta);

end;

Sem essa função, podemos simplificar a programação, ao invés de ficar fazendo vários if then else, basta associar o resultado obtido pela função direto na variável.

Espero ter ajudado.

4 respostas para if ternário em Delphi

  1. Wanc disse:

    Legal, mas eu acho que já existe uma função semelhante que talvez não tenha lembrado:

    Condicao := false;
    ShowMessage( IfThen(Condicao, ‘Sim’, ‘Não’));

    De qualquer forma o IfThen só funciona com string e inteiros. Ajogada com variants foi boa, pois deixou a rotina bem genérica. Parabéns!

  2. marcadans disse:

    Já existe funções semelhantes na propria lib do Delphi.
    Adicione na “uses” StrUtils, Math.

    nelas vão existir uma função IfThen (String, Number)

  3. kiver disse:

    deixa o cara, ele é do tipo que gosta de reinventar a roda.
    kkkkkkkkkkkkkkk
    já existe o recurso pronto, mais gosta de invertar pra ficar se achando.

  4. Anonimo disse:

    kiver, ele pelo menos teve o raciocício de criar algo que receba parâmetros genéricos. O trabalho deve ser aplaudido, diferente de você que critica e não sabe fazer merda nenhuma.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: