CopyMemory Move 사용 노트

901 단어 memory
오늘 그룹에서 어떤 사람이 함수 사용 문제를 물었으니, 나는 스스로 시험해 보는 김에 공부도 좀 하겠다.
 
 
uses math;



procedure TForm2.Button1Click(Sender: TObject);

type

  TTArrayByte= array of Byte;

var

  FSource: PAnsiChar;

  FArrayByte:TTArrayByte;

  FSourceLenth: Integer;

  HexStr: string;

begin

  FSource := '123';

  FSourceLenth := Length(FSource);////string=PChar=PWideChar          1

  SetLength(FArrayByte, FSourceLenth);

  //CopyMemory(@FArrayByte[0], FSource, FSourceLenth);

  //Move(FSource,FArrayByte[0],Min(FSourceLenth,8));



  FArrayByte[0]:=99;

  Move(FSource[1],FArrayByte[1],Min(FSourceLenth,2));



  HexStr := '';

  for FSourceLenth := 0 to FSourceLenth do

  begin

    HexStr := HexStr + inttoHex(FArrayByte[FSourceLenth], 2);

  end;

  ShowMessage(HexStr);



  ShowMessage(PAnsiChar(FArrayByte));

end;


CopyMemory (배열 값 주소, 배열 값 주소, 길이)

좋은 웹페이지 즐겨찾기