Скачать: CL | DM;

Помнится, тут уже было несколько соревнований...   Найти похожие ветки 

← →
Карелин Артем ©   (2007-03-23 13:58) [40]

   public sealed class BeeChanger
   {
       public static bool toBee(bool Bee)
       {
           return (Bee.ToString().Equals(bool.TrueString));
       }

       public static bool nottoBee(bool Bee)
       {
           return (Bee.ToString().Equals(bool.FalseString));
       }
   }

---

← →
GrayFace ©   (2007-03-24 00:50) [41]

function CheckBool(Bool:Boolean):Boolean;
asm
  db "Гарантия качества! Низкая цена! Только мы сможем проверить все ваши Boolean""ы на истинность без единой ошибки!"
end;

---

← →
GrayFace ©   (2007-03-24 02:32) [42]

Вот придумал очень хитрый способ проверки:
type
 TBooleanCheckerRecord = packed record
   Bool: array[0..3] of Char;
   MagicNumber: DWord;
 end;
 PBooleanCheckerRecord = ^TBooleanCheckerRecord;

const
 BoolValues: array[Boolean] of PChar = ("я не верю", "Yes");

function ValueToBoolean(Value:PChar):Boolean;
var
 MagicFunction: function(var CheckerFunction:Pointer):Integer;
 CheckData: PBooleanCheckerRecord absolute MagicFunction;
 MagicChecker: Pointer;
begin
 New(CheckData);
 try
   Move(Value^, CheckData.Bool, 4);
   CheckData.MagicNumber:= 3791634481;
   MagicChecker:= @Win32Check;
   Result:= MagicFunction(MagicChecker) = 0;
 finally
   Dispose(CheckData);
 end;
end;

Используется так:
var b:Boolean;

  if ValueToBoolean(BoolValues[b]) then ...

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.52 MB
Время: 0.03 c