Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Convert decimals to binary

Title: 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&lt0 then Negative:=True; N:=Abs(N); for i:=1 to SizeOf(N)*8 do begin if N&lt0 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;