Q&A

  • 파스칼 공부중에... 비트연산 간단한것.... 부디 플리즈...
에궁... 델파이 공부 중입니다.

괄호 안에 제가 어떻게 채워야 합니까 흑흑.. 고수님들의 답변 꼬옥 부탁드립니다.

이거외에.. 비트연산에 대한 것도 좀 공부하고 싶은데요..



procedure TForm1.Button1Click(Sender: TObject);

var

s: integer;

begin

s := $AAB1;

if (s and $0001) > 0 then showmessage('hello');

end;



procedure TForm1.Button2Click(Sender: TObject);

var

(________)

c1 : char;

c2 : char;

begin

c1 := #$AA;

c2 := #$B1;

(________)

if ( (_______) and $0001) > 0 then showmessage('hello');

end;

1  COMMENTS
  • Profile
    비트연산자 2001.11.22 20:26
    procedure TForm1.Button2Click(Sender: TObject);

    var

    c1 : char;

    c2 : char;

    s : integer;

    begin

    c1 := #$AA;

    c2 := #$B1;

    s := (Byte(C1) or $0000) Shl 8 or (Byte(C2) or $0000);

    if ( s and $0001) > 0 then showmessage('hello');

    end;