Buscar

Como passar valores inteiros como booleanos

Código

{
Algumas vezes prescisamos testar campos numéricos para ativar ou desativar propriedades booleanas ou até mesmo variáveis. Nesse caso o Delphi nos dá uma mãozinha.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  VouF : Boolean;
begin
  // aqui passo a posição do combobox e a função do próprio delphi
 // já converte pra booleano sendo, 0 para false e 1 para true
  VouF := boolean(ComboBox1.ItemIndex);
end;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 31/05/07
Por: Gabriel Andrade
Visualizada: 2104 vezes

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