Integer to boolean...

20/05/2003

22

Como posso fazer?


Responder

Posts

20/05/2003

Okama

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; 



Responder

20/05/2003

Aroldo Zanela

[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;



Responder

20/05/2003

Aroldo Zanela

function IntToBoolean(Num: Integer):Boolean; 
begin 
  Result := Num = 1;
end; 



Responder

20/05/2003

Jairroberto

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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira