Buscar

Função iif do vb em delphi

Código

Na seção private da unit e declare a seguinte procedure:

function IIf(Expressao: Variant; ParteTRUE, ParteFALSE: Variant): Variant;
begin
  if Expressao then
     Result := ParteTRUE
  else
     Result := ParteFALSE;
end;

Esta função é muito útil para pequenos e rápidos testes com os mais variados tipos da linguagem Object Pascal.

 
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 05/05/05
Por: Joaquim Antonio Vila Real
Visualizada: 3094 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009