Posts
20/05/2003
Okama
function IntToBoolean(Num: Integer):Boolean; begin if Num = 1 then Result := True else Result := False; end;
20/05/2003
Aroldo Zanela
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;
20/05/2003
Aroldo Zanela
function IntToBoolean(Num: Integer):Boolean; begin Result := Num = 1; end;
20/05/2003
Jairroberto
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
Clique aqui para fazer login e interagir na Comunidade :)