|
Convert decimals to binary
The following function converts decimals to binary:
function TForm1.DecToBinStr(N: Integer): string;
var
S: string;
i: Integer;
Negative: Boolean;
begin
if N<0 then Negative:=True;
N:=Abs(N);
for i:=1 to SizeOf(N)*8 do
begin
if N<0 then S:=S+'1'
else S:=S+'0';
N:=N shl 1;
end;
Delete(S,1,Pos('1',S)-1);
if Negative then S:='-'+S;
Result:=S;
end;
- Related topics
-
Convert decimals to hexadecimals
Convert hexadecimals to decimals
Convert binary to decimals
- For more
-
Delphi Help
- Download source
|
