안녕하세여..타락임다..^^



제목대로 주어진 수의 좌측에서 k 번째 비트를 얻는 함수임다..



즐푸 하세여..^^



function bits(x : LongWord; k : integer): LongWord;

begin

Result := (x shr k) and not(not 0 shl 1);

end;



타락천사..^________^

최종선 wrote:

>

> string을 1bit씩 나눠 체크해야 할 일이 생겼습니다.

>

> 해서

>

> s:string;

> b:array of byte; 라고 선언하고

>

> s := 'abcdef';

> Move(s,b,length(s)); 했습니다.

>

> 그담에 하고 싶은것은 가령 b[0] 인 a가...1byte의 bit구성이

>

> 00000000인지 10101010인지 알고 싶습니다.

>

> 그러니 b[0]의 (n)bit째가 0인지 1인지 알고 싶은거죠.

>

> 고수님들의 도움 부탁드립니다...

>

>

>

>





안녕하세요~ 구창민입니다.



이런형태면 되지 않을까요?



var c: char;

b: byte;

Bitstr : string;

begin

c:= 'A';

b := Byte(c);

Bitstr := format('%.08x' , [b]);

ShowMessage(Bitstr); // 00000041

(? 맞나? 65를 16으로 나누면.. 음..^^;)

그러고는 원하시는 (n)번째가 뭐 들었나 보면 되겠네요.

음..

ShowMessage(BitStr[n]); 음..모..이런식이 되겠네요.

...

end



잘 안되시면 다시 질문올려주시구요~



그럼, 즐거운 프로그래밍~

날 좋은(?) 주말에 이런 재미없는 질문에 답변 감사드립니다.^^



알려 주신것만해도 많은 도움이 되는군요...쬐끔더...





헌데요 그럼 대문자 A는 00000041, 소문자 a는 00000061이 되는군요.



역시 BitStr[1]은 1, BitStr[2]는 6....소문자의 경우.



저는 결과를 01100001이라는 2진수(bit)단위로 보고 싶습니다. 즉,



BitStr[1]은 1, BitStr[2]는 0....하는 식으로요. 그럼 format에서 x로 16진수로



표현하는건 좀 그렇군요. 어떻게 2진수로 표현하고 참조하는 방법은 없을까요???







구창민 wrote:

> 안녕하세요~ 구창민입니다.

>

> 이런형태면 되지 않을까요?

>

> var c: char;

> b: byte;

> Bitstr : string;

> begin

> c:= 'A';

> b := Byte(c);

> Bitstr := format('%.08x' , [b]);

> ShowMessage(Bitstr); // 00000041

> (? 맞나? 65를 16으로 나누면.. 음..^^;)

> 그러고는 원하시는 (n)번째가 뭐 들었나 보면 되겠네요.

> 음..

> ShowMessage(BitStr[n]); 음..모..이런식이 되겠네요.

> ...

> end

>

> 잘 안되시면 다시 질문올려주시구요~

>

> 그럼, 즐거운 프로그래밍~

안녕하세요. 최용일입니다.



type

TBitStr = array[0..7] of Byte;



function GetBitStr(Value: Byte): TBitStr;

var

I: Integer;

begin

for I := 0 to 7 do

Result[I] := (Value shr I) and $01;

end;



//////////////////////////////////////////

var

BitStr: TBitStr;

begin;

BitStr := GetBitStr(Byte('a'));

end;



^^ 항상 즐코하세요.



최종선 wrote:

>

> 날 좋은(?) 주말에 이런 재미없는 질문에 답변 감사드립니다.^^

>

> 알려 주신것만해도 많은 도움이 되는군요...쬐끔더...

>

>

> 헌데요 그럼 대문자 A는 00000041, 소문자 a는 00000061이 되는군요.

>

> 역시 BitStr[1]은 1, BitStr[2]는 6....소문자의 경우.

>

> 저는 결과를 01100001이라는 2진수(bit)단위로 보고 싶습니다. 즉,

>

> BitStr[1]은 1, BitStr[2]는 0....하는 식으로요. 그럼 format에서 x로 16진수로

>

> 표현하는건 좀 그렇군요. 어떻게 2진수로 표현하고 참조하는 방법은 없을까요???

>

>

>

> 구창민 wrote:

> > 안녕하세요~ 구창민입니다.

> >

> > 이런형태면 되지 않을까요?

> >

> > var c: char;

> > b: byte;

> > Bitstr : string;

> > begin

> > c:= 'A';

> > b := Byte(c);

> > Bitstr := format('%.08x' , [b]);

> > ShowMessage(Bitstr); // 00000041

> > (? 맞나? 65를 16으로 나누면.. 음..^^;)

> > 그러고는 원하시는 (n)번째가 뭐 들었나 보면 되겠네요.

> > 음..

> > ShowMessage(BitStr[n]); 음..모..이런식이 되겠네요.

> > ...

> > end

> >

> > 잘 안되시면 다시 질문올려주시구요~

> >

> > 그럼, 즐거운 프로그래밍~

아! 그렇군요. shift를 먼저하면 될걸, and연산부터 했더니 아~~주 길어지더군요^^





두번째로 이곳에서 큰 도움을 받았습니다.



누군에게 라도 감사의 말씀은 드려야 할것 같아서요^^



멀리서(참고로 여긴 일본입니다.-_-;;; 어쩌다 여기까지...) 초보가 잘모르는 길에서 헤메고



있을때 고수님들의 한마디 한마디는 오아시스와 같습니다.



다들 모두 자기일로도 충분히 바쁘시겠지만 또다른 도움을 원하는 저같은 초보들에게 많은



도움이 되주시길 바랍니다.



다시 한번 감사^^...