Форум: "Прочее";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
ВнизПомнится, тут уже было несколько соревнований... Найти похожие ветки
← →
Карелин Артем © (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 вся ветка
Форум: "Прочее";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.046 c