随笔分类 -  数值转换

摘要：function IntToBin(Value: Integer; Count: Integer = 32): string;var iTemp: Integer;begin Result := ''; while Count > 0 do begin iTemp := Value shr (Count - 1) and 1; case iTemp of 1: Result := R... 阅读全文