Integer to boolean...

20/05/2003

0

Como posso fazer?


Petrified Eyes

Petrified Eyes

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar