Q&A

  • 배열을 다른 배열로 옮기는 방법?
var

nI : Integer;

A:Array[0..99] of Byte;

B:Array[0..99] of Byte;

begin

FillChar(A, SizeOf(A), $00);

FillChar(B, SizeOf(B), $00);



for nI := 0 to 99 do

A[nI] := nI;





end;



그런데..배열 A의 내용을 배열 B에 그대로 옮기고 싶습니다.

for nI := 0 to 99 do

B[nI] := A[nI];

이렇게 하는 방법말고...

한번에 Copy하는 함수가 없을까여?



1  COMMENTS
  • Profile
    김진호 2001.04.27 04:56
    과객 wrote:

    > var

    > nI : Integer;

    > A:Array[0..99] of Byte;

    > B:Array[0..99] of Byte;

    > begin

    > FillChar(A, SizeOf(A), $00);

    > FillChar(B, SizeOf(B), $00);

    >

    > for nI := 0 to 99 do

    > A[nI] := nI;

    >

    >

    > end;

    >

    > 그런데..배열 A의 내용을 배열 B에 그대로 옮기고 싶습니다.

    > for nI := 0 to 99 do

    > B[nI] := A[nI];

    > 이렇게 하는 방법말고...

    > 한번에 Copy하는 함수가 없을까여?

    >



    move(A, B, SizeOf(A));