DelphiLab - Проверка булевого значения

Проверка булевого значения

Написал Snowy

05.05.2007

Этот код не шутка и написан не ради прикола.
Это кусок реального кода!

 
function IsTrue(Value: boolean): boolean;
begin
  if Value <> true then result := false
  else if Value <> false then result := true
  else // внимание!
    result := (not true) and (not false);
end;

Добавить новый

Поиск

Анонимно

2008-05-20 17:16:02

Цитата

Werdn - "nj ghbrjk

2008-06-10 22:41:27

Это вроде прикол.
Такое я видел когдато уже, только там язык был с динамической типизацией и нельзя было узнать какого типа аргумент функции (чтото вроде того)

Цитата

Анонимно

2008-12-20 20:20:05

и что же он выдает если не тру и не фалс? :?:

Цитата

Wersaln

2009-02-05 20:10:27

ну давай рзберемся
учитывая, что в памяти компьютера
true=1
false=0
(not 1) and(not 0)
=> 0 and 1
это по логическим таблицам всю жизнь было
нулем, т е false

Цитата

[O]men

2009-06-20 20:59:52

hock:' />

hock:' /> На минуту мне стало страшно.... Потом я понял всю несостоятельность кода ))) Else то никогда не будет... Ваще не понимаю зачем так морочить голову.

Цитата