안녕 하세요?
BacTeria 박종민 입니다.
오늘의 팁은 10진수 <-> 2진수 변환 함수 입니다.
32비트 기준으로 작성 되어 있으니 참조 하셔서 대충 입맛에 맞게 고쳐 쓰심이... ㅋㅋ
그럼 오늘 하루도 수고하세요~ 델파이 만세!!
function Dec2Bin(Value : LongInt) : string;
var
i : integer;
s : string;
begin
s := '';
for i := 31 downto 0 do
if (Value and (1 shl i)) <> 0 then s := s + '1'
else s := s + '0';
Result := s;
end;
function Bin2Dec(BinString: string): LongInt;
var
i : Integer;
Num : LongInt;
begin
Num := 0;
for i := 1 to Length(BinString) do
if BinString[i] = '1' then Num := (Num shl 1) + 1
else Num := (Num shl 1);
Result := Num;
end;
|