Delphiのメモリ操作関数(4):メモリのクリアと埋め込み

2019 ワード

FillMemory、ZeroMemoryは一目瞭然の2つの関数ですが、実はFillCharを呼び出しています.
クリアは空文字(#0:番号0の文字)を埋めるだけで、どちらかというと同じことです.
次のテストのために、メモリを16進数で表示する関数を書きます.


function GetMemBytes(var X; size: Integer): string;

var

  pb: PByte;

  i: Integer;

begin

  pb := PByte(X);

  for i := 0 to size - 1 do

  begin

    Result := Result + IntToHex(pb^, 2) + #32;

    Inc(pb);

  end;

end; {GetMemBytes end}



// :

var

  p1: PAnsiChar;

  p2: PWideChar;

  s1: AnsiString;

  s2: UnicodeString;

begin

  p1 := 'ABCD';

  p2 := 'ABCD';

  s1 := 'ABCD';

  s2 := 'ABCD';



  ShowMessage(GetMemBytes(p1,4)); {41 42 43 44}

  ShowMessage(GetMemBytes(p2,8)); {41 00 42 00 43 00 44 00}

  ShowMessage(GetMemBytes(s1,4)); {41 42 43 44}

  ShowMessage(GetMemBytes(s2,8)); {41 00 42 00 43 00 44 00}

end;


 
   

FillMemory、ZeroMemory、FillCharの3つのパディング関数をテストします.


const

  num = 10;

var

  p: PChar;

begin

  p := StrAlloc(num);



  ShowMessage(GetMemBytes(p, num)); {  StrAlloc  }



  FillMemory(p, num, Byte('A'));

  ShowMessage(GetMemBytes(p, num)); {41 41 41 41 41 41 41 41 41 41}



  ZeroMemory(p, num);

  ShowMessage(GetMemBytes(p, num)); {00 00 00 00 00 00 00 00 00 00}



  FillChar(p^, num, 'B');

  ShowMessage(GetMemBytes(p, num)); {42 42 42 42 42 42 42 42 42 42}



  StrDispose(p);

end;


 
   

このとき、私は一つの問題を考えました.
GetMemとGetMemoryには初期化メモリがありません.AllocMemはメモリを空に初期化します.
ReallocMem、ReallocMemoryはメモリを初期化しますか?
テストしてみます(結果は初期化されていません):


{ 1}

var

  p: Pointer;

begin

  p := GetMemory(3);

  ShowMessage(GetMemBytes(p, 3));

  ReallocMem(p, 10);

  ShowMessage(GetMemBytes(p, 10)); { }

  FreeMemory(p);

end;



{ 2}

var

  p: Pointer;

begin

  p := AllocMem(3);

  ShowMessage(GetMemBytes(p, 3));

  ReallocMem(p, 10);

  ShowMessage(GetMemBytes(p, 10)); { }

  FreeMemory(p);

end;


 
   

なお、FillMemory、ZeroMemoryの操作対象はポインタである、FillCharの操作対象はエンティティである.