Move(b, w, 2);

와 같이 하세요..





From 류..





오이군 wrote:

> var

> b: array[0..1] of Byte;

> w: Word;

> begin

>

> 일때

> 바이트 배열의 값을 word에 넣는 방법은요..?

>

i = $1000; 이 있을때

b[0] := 00;

b[1] := 10;

있을때

i와 b가 같다고 하려면 어떻게 해야 하지요...

또는 i의 값을 byte배열에 위와 같이 넣으려면 어떻게 해야 하나요?



류종택 wrote:

> Move(b, w, 2);

> 와 같이 하세요..

>

>

> From 류..

>

>

> 오이군 wrote:

> > var

> > b: array[0..1] of Byte;

> > w: Word;

> > begin

> >

> > 일때

> > 바이트 배열의 값을 word에 넣는 방법은요..?

> >

procedure TForm1.Button1Click(Sender: TObject);

Var

i, j : Integer;

b : Array [0..3] of Byte;

begin

i:= $1000;

Move(i, b, 4);

ShowMessage(Format('%d, %d', [b[0], b[1]]));

Move(b, j, 4);

If i = j then ShowMessage('i = b');

end;



를 참고 하세요..

Integer는 4Byte이기 때문에..

비교하려고 하면 배열을 4Byte로 하시던가..

아니면 2Byte만 짤라오셔야 합니다..





From 류..



오이군 wrote:

> i = $1000; 이 있을때

> b[0] := 00;

> b[1] := 10;

> 있을때

> i와 b가 같다고 하려면 어떻게 해야 하지요...

> 또는 i의 값을 byte배열에 위와 같이 넣으려면 어떻게 해야 하나요?

>

> 류종택 wrote:

> > Move(b, w, 2);

> > 와 같이 하세요..

> >

> >

> > From 류..

> >

> >

> > 오이군 wrote:

> > > var

> > > b: array[0..1] of Byte;

> > > w: Word;

> > > begin

> > >

> > > 일때

> > > 바이트 배열의 값을 word에 넣는 방법은요..?

> > >