onefunc.inc

DelphiDoc is a program for automatic generation of documentation on a Delphi-Project. At the momen

{Some Documentation for abc.
~deprecated only a test function, DO NOT USE!
}
function abc: Integer;
var      x    :Byte;
begin
 x := Round(Frac(Now) * 86400);

 Result := x xor (x + 1);
end;



//{$INCLUDE onefunc.inc}