Integer to boolean...

Delphi

20/05/2003

Como posso fazer?


Petrified Eyes

Petrified Eyes

Curtidas 0

Respostas

Okama

Okama

20/05/2003

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;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

20/05/2003

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



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

20/05/2003

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



GOSTEI 0
Jairroberto

Jairroberto

20/05/2003

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


GOSTEI 0
POSTAR