Posted by Bill DelphiMan
In Reply to Re: Convert number to binary posted by Geof
: Delphi has the built-in functions IntToStr (returns a string that is the decimal representation of a number) and IntToHex (returns a string that is the hexadecimal representation of a number). But alas, Delphi has no "IntToBinary" function.
: You'll have to write the function yourself ;)
: Or otherwise, search the Net for a library that contains such a function. If you find it, maybe let me know how it goes? :-p
If you want to convert the ASCII code of a character C to a string S, first get the decimal value of the ASCII code with Ord(C). Next, convert this to a string S that contains the binary representation:
S := IntToBin8(Ord(C));
Here's a Delphi source code example for the integer-to-binary function IntToBin8, that returns a string of 8 characters representing the binary form of an integer (such as '01000001' for 65):
function IntToBin8(I: integer): string; begin Result := ''; while I > 0 do begin Result := Chr(Ord('0') + (I and 1)) + Result; I := I shr 1; end; while Length(Result) < 8 do Result := '0' + Result; end;
Thus, after S := IntToBin8(Ord('A'))
S contains '01000001'.