Code:

function IntToBin1(Value: Longint; Digits: Integer): string;

var

i: Integer;

begin

Result := '';

for i := Digits downto0do

if Value and (1shl i) <> 0then

Result := Result + '1'

else

Result := Result + '0';

end;

Code:

function IntToBin2(d: Longint): string;

var

x, p: Integer;

bin: string;

begin

bin := '';

for x := 1to8 * SizeOf(d) do

begin

if Odd(d) then bin := '1' + bin

else

bin := '0' + bin;

d := d shr1;

end;

Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div8));

Result := bin;

end;