Integer to boolean...

Question

Como posso fazer?...

Okama · Answer

Boolean aceita apenas dois valores (false e True). Integer deve ter apenas dois valores (ex. 0 e 1). Crie a função:

function IntToBoolean(Num: Integer):Boolean;
begin
   if Num = 1 then 
       Result := True 
   else 
       Result := False; 
end;

Aroldo Zanela · Answer

[quote:401df87fff=´Petrified Eyes´]Como posso fazer?[/quote:401df87fff]

procedure TForm1.Button1Click(Sender: TObject);
var Flag: Boolean;
begin
 
 // Type casting
 
  Flag := Boolean(1);
  if Flag then ShowMessage(´Verdadeiro´);
 
  Flag := Boolean(0);
  if not Flag then ShowMessage(´Falso´);
 
  // Valor booleano recebe o resultado da comparação lógica
 
  Flag := 1 = 1;
  if Flag then ShowMessage(´Verdadeiro´);
 
  Flag := 1 = 0;
  if not Flag then ShowMessage(´Falso´);
end;

Aroldo Zanela · Answer

[code:1:c8e63e678d]function IntToBoolean(Num: Integer):Boolean; begin   Result := Num = 1;end; [/code:1:c8e63e678d]...

Jairroberto · Answer

Olá, amigo!Basta fazer um [i:23fed91436]cast[/i:23fed91436] no valor inteiro para o tipo Boolean:VariavelBoolean := Boolean(VariavelInteira);Se ´VariavelInteira´ for 0 (zero) o resultado será False, se for diferente de 0 (zero) o resultado será True.Sendo assim, você pode escrever algo do tipo:if Boolean(StrToInt(Edit1.Text)) then  ShowMessage(´True´)else  ShowMessage(´False´);Um abraço,Jair...

Fórum Integer to boolean... #161175