Question:
How do I convert an integer into a binary string?
Answer:
function IntToBinStr(num: integer): string;
var
i: integer;
begin
for i := 0 to 31 do
Result := IntToStr((num shr i) and 1)+Result;
end;
Last Modified: 05-APR-00