Integer functions

 Top 

Example code : ToString, ToHexString, ToBin

procedure TForm1.W3Button18Click(Sender: TObject);

var

  NormalInteger : Integer;

  BigInteger    : Integer;

 

begin

NormalInteger := 2147483647;

BigInteger    := 9223372036854775807;

 

  WriteLn('NormalInteger :     '+NormalInteger.ToString);

  WriteLn('BigInteger :        '+BigInteger.ToString);

  WriteLn('Calculated number : '+(27 * 4).ToString);

 

 

 

NormalInteger := 1234;

  // Display 123 decimal in hex with minimal width

  WriteLn('1234 decimal = '+NormalInteger.ToHexString(0));

  // Display 123 decimal in hex with fixed width

  WriteLn('1234 decimal = '+NormalInteger.ToHexString(8));

 

//conversion to binary string

  WriteLn('1234 decimal = '+NormalInteger.ToBin(12));

  WriteLn('1234 decimal = '+NormalInteger.ToBin(16));

 

end;

NormalInteger :     2147483647

BigInteger :        9223372036854776000

Calculated number : 108

 

1234 decimal = 4d2

1234 decimal = 000004d2

 

1234 decimal = 010011010010

1234 decimal = 0000010011010010

 

 

mytoggle_plus1JS output

function W3Button18Click(Self, Sender$15) {

      var NormalInteger = 0;

      var BigInteger = 0;

      NormalInteger = 2147483647;

      BigInteger = 9223372036854775807;

      WriteLn(("NormalInteger :     "+NormalInteger.toString()));

      WriteLn(("BigInteger :        "+BigInteger.toString()));

      WriteLn("Calculated number : 108");

      NormalInteger = 1234;

      WriteLn(("1234 decimal = "+NormalInteger.toString(16)));

      WriteLn(("1234 decimal = "+IntToHex(NormalInteger,8)));

      WriteLn(("1234 decimal = "+IntToBin(NormalInteger,12)));

      WriteLn(("1234 decimal = "+IntToBin(NormalInteger,16)));

   }